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ABSTRACT 


This report describes a simulation of the TCP/IP protocol 
running on a CSMA/CD data link layer. The simulation was 
implemented using the Simula language, an object oriented 
discrete event language. It allows the user to set the number of 
stations at run time, as well as some station parameters. Those 
parameters are the interrupt time and the dma transfer rate for 
each station. In addition, the user may configure the network at 
rwuAlibmowwt bhs t. til tdiofluoiffddf f£iceoiil'.''bhaBra>tfe>ri-ffiibi'ieu . TWwotjrpeeaafleo 
available, and the parameters of both types are read from input 
files at run time. The parameters include the dma transfer rate, 
interrupt time, data rate , average message size, maximum frame 
size and the average interarrival time of messages per station. 

The information collected for the network is the throughput 
and the mean delay per packet. For each station , the number of 
messages attempted as well as the number of messages successfully 
transmitted is collected in addition to the throughput and mean 
packet delay per station. 
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INTRODUCTION 


The purpose of this simulation is to allow a user to model a 
network with specific station parameters to see the 
characteristics of its behavior . In this way, an existing network 
may he examined, as well as the effect of any change on the 
network. For example, to see the effects of adding a station to 
an existing network without actually doing It, the network could 
be simulated with the added station using this tool. The 
simulation could be run with varying characteristics of the added 
station, and the performance of the network under those 
conditions could be examined. 

To implement this simulation, four basic layers were 
deliminated. They are the host , tcp , ip, and csmacd. ( The host 
layer basically encompasses user and high level characteristics.) 
Within each layer, the basic functionality of each was modeled 
using petri nets. For each layer, a transmitter and a receiver 
entity were defined. Using the petri nets, the possible states 
were modeled as well as the events that cause state transitions 
to occur. 

Because Simula supports the notion of Inheritance, common 
characteristics were grouped together in progressive levels of 
definition. For example, each entity requires a buffer to store 
messages in, whether it is part of the host, tcp, ip, or csmacd 
layer. Therefore , in implementing the lowest level of this 
simulation ( level_0 ) the class entity was declared with all the 
common characteristics defined at that level, including the 
buffer. Subsequent levels were progressively defined based on 
preceeding level class declarations until the specific functions 
for each layer of the network simulated were implemented. 

To allow the user to set variables at run time , this 
simulation is invoked at the topmost level ( network level ) 
after prompting the user for the configuration parameters. These 
parameters are then passed down to the lower levels as needed, or 
used as global variables when appropriate. 

To sum up, it requires eight entities to represent a single 
station; a receiver and transmitter for each of the host, tcp, ip, 
and csmacd layers . 



DESCRIPTION OF SIMULATION LEVELS 


Because Simula supports the notion of inheritance , the 
software was designed in a series of levels, each one defining 
structures that are common to the next level. This was done to 
make the software easier to modify and adapt to future changes, 
for example modeling a different network protocol. It also 
maintains the commonality of the software, and helps simplify the 
design . 

The levels designed are level_0 , level_l , level_2 and the 
network level. They are described below. 

I . LEVEL_0 

Level_0 contains the fundamental building blocks of the 
simulation, the entity and its supporting structures. The process 
class entity describes the fundamental process structure that all 
of the station processes require. That is, all the transmitters 
and receivers of the host,tcp,ip, and csmacd layers. 

Each of these processes require a variable state, used to 
define the current state of the entity ( FREE, SENDING, RECEIVING, 
etc ). Upon creation, each entity is set to the FREE state. In 
addition to the state, each entity also requires a buffer for 
holding messages or frames and a frame pointer. For ease in 
programming, a variable return_code is defined to hold the return 
value of procedure calls . 

In addition to the declared variables, the process entity is 
called with several arguments that define station 
characteristics . This was done to allow these values to be read 
from an input file. A title is passed in for use in debugging and 
future plotting. The id number refers to the id number of the 
station. Although the id number is common to each of the eight 
entities that represent a station, it must be passed individually 
to each entity at the time of creation. It is through the id 
number that each station knows itself. It is used as an array 
index. For example, tx_ip(id) would activate tx_csmacd( ip) to 
pass a frame. The dma_xfer_rate and interrupt_time are also 
station parameters. These are read from the input file, and 
passed down to the creation of the entity. 

The basic class message is also defined in this layer. It 
contains all the variables required to collect data about the 
message for later analysis. The basic definition is that of a 
link class for manipulation in a queue. 

The last significant variable defined in this level is the 
variable u. This variable is used as a random seed generator. 
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II. 


LEVEL_1 


Level_l begins the separation of network layers. In the 
level, the entity classes host.tcp, ip, and csmacd are defined. 
All aspects that are common to the transmitter and receiver of 
each network layer are defined here. For example, both the 
transmitters and receivers of each layer must receive frames from 
their adjacent layers, so a procedure receive is defined for each 
entity class. 

In addition to the network layer classes, the class window 
and tcp_timer are defined for use by the tcp layer. The window 
controls how many messages may be outstanding at once, and the 
timer is set whenever a transmission is sent. 

III. LEVEL_2 

Level_2 defines the structure of the network. It contains 
includes for all the specific entities that define a station 
(txjiost , rxjiost ,etc) . These entities are described under 
IMPLEMENTATION OF NETWORK LAYERS. This layer revolves around the 
* variable num_of_stations , which is passed in as a calling 
argument. The num_of_stations sets the number of stations for the 
simulation. The entities that define each station are declared as 
arrays from one to the num_of_stations . In order to declare a 
variable size array, the array parameter must be passed in as a 
calling argument. Besides declaring the arrays of entities that 
compose the stations, the entities are also instantiated and 
activated. They are instantiated to allow the creation of their 
support structures, such as their buffers. The activation allows 
for the initialization of the entities to their first passivation 
point in the while true loop, which is where they begin to loop 
on their subsequent states. 

Since the simulation allows for more than one type of 
station at the user's discretion, stations are created using two 
for loops. The for loops are controlled by the num_typea_stations 
and num_of_s tat ions . The first loop from one to 
num_typea_s tat ions configures stations with the variables 
dma_xfer_rate and interrupt_time . This represents the creation of 
type a stations. 

The second for loop runs from num_typea_stations + 1 until 
num_of_stations . This creates stations of type b, using the 
variables b_dma_xfer_rate and b_interrupt_time . This method 
results in type a stations having the lowest id numbers . For 
example, if the user chooses to have twenty stations total and 
five type a stations, then the stations with id numbers from one 
to five will be the type a stations and the stations with id 
numbers from six to twenty will be type b stations. 

In addition to the declaration of the entities that comprise 
the stations, a collection queue is also listed as an include 
file at this level. The collection queue collects all data used 
to measure performance. 
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IV. NETWORK 


The network level performs two basic functions: it manages 
all user interface and calls the simulation. In order to call the 
simulation, all variables required by the simulation must be set. 
This is accomplished both by absorbing the user inputs and 
calculating certain key variables. The network level also 
controls the length of the simulation, based on the number of 
messages successfully transmitted per station. 

The user interface is composed of two parts, prompting the 
user and writing data collected to an output file. The user is 
prompted for the number of stations and their type. To choose the 
type of station, three options are offered: type_a stations, 
type_b stations or a mix of the two. If a mix of station types is 
chosen the user is again prompted for the number of type_a 
stations. If the user chooses to have more type_a stations than 
the number of stations, the value is automatically reset to the 
number of stations . No other error checking is performed on the 
user input. 

After the number and type of stations have been defined, the 
input files are read to obtain the values of station 
characteristics . There are two station types currently 
implemented, and the corresponding values of these types are 
contained in the file " station_typea” and "station_typeb" . The 
names of the input files are directly referenced in the network 
layer. To add another input file containing station 
characteristics, the network layer would require modification. 
The modifications required would be the addition of the new input 
file, and the definition of new variables for the dma_jcfer_rate 
and interrupt_time , which are currently the only difference 
between the station types. The new variables would be passed as 
calling arguments to the simulation. 

The format of the input files is identical, regardless of 
the station type they define. The input files are read using the 
read_input routine, which assigns the values in the file to the 
corresponding variables. For this reason, the order of the values 
in the file is crucial for correct assignment. The read_input 
routine reads a single value from each line of the input file. 

The variables read in their assigned order are data_rate, 
interrupt_time , dma_xf er_rate , aver_arrival_time , prop_delay, 
max_f rame_size , and aver_msg_size . All the values are real except 
the last two, which are integer. 

The output file is written at the end of the simulation. It 
contains information on the throughput and average delay per 
frame for the individual stations and the whole network. Also 
included is the number of successful and rejected messages per 
station as well as the simulation time required. All values are 
calculated in the collection_queue routines. The output is 
written to a file "output" using the print_data routine. The file 
name is directly referenced in that routine. A modification to 
the output file would require changes to be made to the 
print_data routine, and the collection_queue routines that 


7 


calculate the data. 


After the input files have been read, the value of tau is 
calculated. The simulation is called with the value of tau and 
all variables read from the input files as calling arguments. The 
simulation then loops until each station achieves a minimum 
number of successful transmissions. The data is then collected, 
first on a per station basis and then for the network as a whole. 
It is then printed, and the program terminates. 


IMPLEMENTATION OF NETWORK LAYERS 


L' 


Each of the layers described below represents a network 
level protocol. They are represented by both a transmitter and 
receiver entity concerned with the passage of messages. The 
various states of the entities are listed, along with events that 
cause a state transition. 


I. 


IMPLEMENTATION OF HOST LAYER 


The host layer of this simulation represents all upper 
layers of network protocol above the tcp layer. In this layer the 
arrival of new messages is generated and their final reception 
occurs. This is accomplished by use of message queues, one for 
■the 'tra.nsin iffer cind one for “the receiver. 

HOST TRANSMITTER 

The host transmitter has no defined states. It loops on 
generating messages. After a message is generated, the host 
transmitter checks to see if the tcp transmitter is idle. If it 
is, it activates it, holds for an interrupt time, and then loops 
back to generate the next message. 

The generate_messages procedure of the host transmitter is 
responsible for setting message parameters and their arrival 
rate. It begins by using the global variables aver_arrival_time 
and u to get a random arrival time. It holds for this amount of 
ime before proceeding to simulate a poisson arrival rate . 

The queue length is checked next to see if it is less than 
MAX_UOST_MESSAGE_CODNT . This is done because of the memory 
constraints imposed running the simulation. It is desirable to 
have no restrictions on the number of messages the host 
transmitter may generate, but since the arrivals of the messages 
is a poisson process, it has no memory of past arrivals. So the 
modeling of the arrivals remains valid. 

If there is room in the message queue, a new message is 
created. The time of creation is noted for bookkeeping purposes. 

A random destination other than its own address is generated. The 
size of the message is assigned using the global variable 
averjnsg size. The message is placed in the queue so that the tcp 
transmitter may process it. The host transmitter then loops back 
around to generate the next message. 

HOST RECEIVER 


The h ° St receiver has two states: FREE and RECEIVING. The 
FREE state is the idle state, when the host receiver is ready to 
process the next message. The receiver is capable of receiving 
more than one message in its queue at once, as compared to the 
lower layers that process one frame at a time. 

When a message arrives, a state transition to RECEIVING 
occurs. The message is taken out of the queue and discarded, 
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since all bookkeeping regarding the message is done by the tcp 
receiver. The state then transitions back to free after holding 
for an interrupt time. 

II. IMPLEMENTATION OF TCP LAYER 


The tcp layer is composed of two entities, the transmitter 
and the receiver as well as a number of supporting structures for 
the processing of messages. On the transmitter side this layer 
receives messages from the host, and breaks them into frames for 
transmission. On the receiving side, it re-assembles the frames 
back into messages and passes them to the host. The tcp layer is 
responsible for determining if frames sent have been received. 
Positive acknowledgements are used to accomplish this. A buffer 
and a window are used to process messages. Although each of these 
has a maximum size, if there is not enough room to process the 
messages, this upper limit is simply increased to accomodate 
them. To decrease the number of transmissions across the network, 
acfeoteHflW'Icdwem'f a la r ax-pi 0&y&9bfeehcdnortaif,a ipapheke LwhwheHevopopeihlblo 

TCP TRANSMITTER 

The tcp transmitter has three states: FREE, RECEIVING, and 
SENDING. The FREE state is the idle state, with no messages to 
process or packets to send. If there are any messages from the 

of that station to transmit, a state transition to the 
RECEIVING state occurs, provided that the buffer of the tcp 
transmitter is not full. 

In this state, messages are removed from the host message 
queue and packetized for transmission. They are also added to a 
collection queue for easy data retrieval when the transmission is 
completed . 

The tcp transmitter removes messages directly from the host 
message queue of that station . In addition to transmitting 
messages, it also transmits acknowledgements and re-transmits 
packets that have timed out. If there are any acknowledgements, 

’ or Packets to send a state transition to the 

SENDING state occurs. In this state,' whenever a transmission is 
sent a timer is set. Should the timer expire before an 
acknowledgement for the transmission is received, the 
transmission is resent and the timer reset. 

.. u J rans ® iss i°ns are sent on a priority basis. The message with 
the highest priority is an acknowledgement, followed by a re- 
transmission of a message that has timed out and lastly a data 
packet. 


TCP RECEIVER 


wwttt? T ^ e . tc ? r f^ ei T® r has two states: FREE and RECEIVING. The 
FREE state is the idle state, when the tcp receiver is available 
to receive and has no frame to process. In this state, it 
activates the ip receiver in case it has any frames to send and 
then passivates. 

When a frame arrives, a state transition to RECEIVING 
occurs. The type of the frame is checked to see if it is a data 
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frame and/or an acknowledgement frame. If it is an acknowledgement 
frame, the procedure ack_roessage of the transmitter is called to 
process it. A data frame is processed by the receiver. 

Next the frame is removed from the window and the buffer, 
and the sizes are adjusted accordingly. If the frame is the last 
data frame of a message , the message is re-assembled and 
forwarded to the host receiver. The host receiver is then 
activated to process the message. 

III. IMPLEMENTATION OF IP LAYER 

The ip layer implementation is composed of two entities, the 
receiver and transmitter. It is a very simple layer that receives 
a pointer to the buffer contents and passes it to the next 
appropriate layer. Both entities receive packets through their 
receive routines. In this layer, the frame pointer is checked 
directly rather than the state of the buffer. Only one packet is 
required for the entity to activate itself. 

IP TRANSMITTER 

The ip transmitter has three possible states: FREE, READY, 
and SENDING. FREE represents the idle state, with no frame in the 
buffer. When a frame is received, a state transition to the READY 
state occurs. At this stage, the ip transmitter is ready to 
transmit a frame to the csmacd layer. It calls the receive 
routine of the csmacd transmitter for that station, and attempts 
to pass the frame. It loops in that state until the frame is 
successfully passed to the csmacd transmitter. 

When the frame is successfully passed, the state transitions 
to SENDING. At this point the ip transmitter activates the 
transmitter entities of the tcp and csmacd layers for that 
station, and resets itself. 

The ip transmitter also allows for a failed transmission. If 
the csmacd layer of that station is unable to transmit the frame, 
it calls the routine transmit_f ailed . This routine in turn calls 
the transmit_failed routine of the tcp transmitter of that 
station . 

IP RECEIVER 

The ip receiver has two states: FREE and BUSY. The FREE 
state corresponds to the idle state, when the receiver is 
available to receive and has no current frame. In this state, the 
receiver of the csmacd layer for that station is activated in 
case it has a frame to send to the ip receiver. If the ip 
receiver receives a frame, it transitions to the BUSY state. It 
loops in that state until it successfully transmits the frame to 
the tcp receiver. Whether the transmission is successful or not, 
it activates the receiver of the tcp layer to allow any possible 
state transitions of that layer to occur. 

After a successful transmission to the tcp receiver, the 
frame pointer is reset to none and the state is set to FREE. 



IV. IMPLEMENTATION OF CSMA/CD LAYER 


The csmacd layer implementation is based on the petri net 
model of the csmacd. It is composed of two entities, the receiver 
and transmitter as well as the definition of a class 
channel_csmacd . The entities are processes that have the 
capability of activating and passivating themselves. Class 
channel_csmacd , on the other hand, is a simple class definition 
that basically consists of a queue. The buffer for the csmacd 
layer is actually implemented as a characteristic of the csmacd 
receiver and transmitter. That is to say, both the transmitter 
and the receiver each have their own buffer. 

Both entities receive packets through their receive 
routines, which check to see if the buffer is available. If it 
is, it accepts the incoming packet and sets the buffer state to 
FULL. Only a single packet is required to set the buffer state to 
FULL. If the buffer is FULL when an incoming packet arrives, it 
is ignored. 

Each csmacd entity is designed as a forever true loop. If 
there is an incoming message in the buffer or a state transition 
has occurred, it loops determining through the next state 
procedure if another transition can occur. When all possible state 
transitions have been exhausted, it passivates. To be awakened, 
the csmacd transmitter must be called by the ip transmitter. The 
csmacd receiver, on the other hand, may be awakened either by a 
sending csmacd transmitter or by its ip receiver layer. 

For each possible state shown on the petri net, there is a 
subroutine. The state subroutines are contained in csmacd_txs for 
the transmitter, and csmacd_rxs for the receiver. These 
subroutines check for potential transitions, and return a boolean 
value of true if a transition of state occurs. 

CSMA/CD TRANSMITTER 

The csmacd transmitter has five possible states: DISABLED, 

FREE, WAIT JFOR_RE_TX , ATTEMPT_TX , and ACQUIRE_CHANNEL . Each of 
these states will be described below. 

The FREE state represents the idle state, when the 

transmitter is not engaged. In this state, for a transition to 
occur, the buffer must be full and the channel must be free. If 

this is the case, the state transitions to ATTEMPT_TX. If the 
buffer is full, but the channel is not free the transmitter waits 
in the channel queue until the channel becomes free. 

The ATTEMPT_TX state represents the transmitter attempting 
to transmit a packet. In this state, the transmitter holds for a 
peroid of tau , and then checks the channel_state variable to see 
if it is zero. If it is, it increments the channel_state variable 
and holds for another tau . It then checks to see if the 

channel_state variable is greater than one. If it is, a collision 
has occurred. If not, it ends the collision window and 
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transitions the state to ACQUIRE_CHANNEL . If a collision occurs, 
the state is set to DISABLED. So, from the ATTEMPT_TX state there 
is allays a state transition to either ACQUI RE_CHANNEL or 
DISABLED. 

The DISABLED state represents the period when a station 
realizes it has has collided with one or more stations and must 
jam transmissions. Each station involved in a collision will 
independently realize the event by checking the channel state 
variable. In this way, the channel remains a passive element and 
the individual stations are the active determinants of their 

S "t 

When a station realizes it is disabled, it holds for a 
time of two tau and then changes state to WAIT_rUK_AC._i . 
decrements the channel_state variable and checks to see if 
variable has returned to zero. This indicates that the 
over, and all stations involved are ready to wait for 
transmission. If the jam is over, the station will check the 
channel queue to see if there were any stations that were waiting 
for the channel. If so, it wakes them up. In this way, preference 
for new transmissions over transmissions involved in a collision 
is preserved. 

In the WAIT_FOR_RE_TX state, the station checks to see if it 
has attempted to send the transmission more than max_tries ( 
sixteen attempts ). If it has, it retrieves the frame from ^ the 
buffer and calls the transmit_failed routine of the station sip 
layer. The csmacd transmitter is reset for the next transmission 
and the ip transmitter is activated. 

If the csmacd transmitter has not exceeded max_tries, it 
increments a binary backoff variable n, and generates a random 
number in the window of 2**n - 1. It holds for that time times 
tau, and then transitions back to the FREE state to attempt to 
transmit again. 

The ACQUIRE_CHANNEL state represents the station 
transmitting. In this state, the collision window has ended and 
the station definitely has the channel. The transmission time is 
calculated based on the bits per packet divided by the data rate. 
The transmitter simply sends the message by calling the receive 
routine of the destination csmacd receiver, and then activating 
it. No attempt is made to determine if the transmission is 
successfully received. The csmacd receiver is then reset ( the 
buffer is empty and the state is FREE ) and the ip transmitter is 

activated . 


CSMA/CD RECEIVER 

The csmacd receiver has three possible states: DISABLED, 
FREE, and RECEIVING. Because it is impossible for a receiver to 
receive an unsuccessful transmission in this simulation, only the 
FREE and RECEIVING states are modeled .These states are described 
below . 

The FREE state represents the idle state of the csmacd 
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receiver. In this state, the receiver checks to see if the buffer 
is full. If it is, it resets the state to receiving. If not, it 
does nothing. 

The RECEIVE state attempts to pass the buffer contents to 
its ip receiver.lt calls the ip receive routine to pass the 
buffer contents, and holds for rx_delay. The ip receiver is 
activated, and the csmacd receiver is reset ( the buffer is empty 
and the state is FREE ) . If the csmacd receiver is unsuccessful 
in attempting to pass its buffer contents to the ip receiver, it 
passivates until re-awakened by the ip receiver or a csmacd 
receiver . 

CSMA/CD CHANNEL 

The csmacd channel is not a process class, but a simple 
class definition. It is composed of a queue and a class state 
variable. The queue is used for stations wishing to transmit 
when the channel is already in use. When the channel becomes free 
( after a successful transmission or at the end of a jam ) the 
stations in the queue are all activated at once and allowed to 
contend for channel acquisition. If more than one station is in 
the queue, this generally results in a collision with normal 
contention resolution. In this way, the behavior of the csmacd 
protocol is preserved. 

Access to the channel is controlled by the channel state 
variable. If the channel state variable is zero, the channel is 
free and a station may transition state to ATTEMPT_TX. If it is 
not zero, the station enters the channel queue. 

To simulate the collision window, two possible cases are 
considered. After a station has transitioned states from FREE to 
ATTEMPT_TX , it holds for a period of tau. It next checks the 
channel state variable to see if it is still zero. If it is, no 
collision has occurred yet and it continues to attempt to gain 
the channel. If it is not, the station has collided with another 
station and it holds for another tau and follows the collision 
protocol. 

If no collision occurs within the first tau period, the 
station attempting to transmit increments the channel state 
variable and holds for another tau. It then rechecks the channel 
state variable to see if it is greater than one. If it is, 
another station is also attempting to transmit and a collision 
has occurred. If not, it has successfully gained the channel. 

At the end of a successful transmission, the station 
decrements the channel state variable and it returns to zero, 
thus leaving the channel in a free state. In the case of a 
collision, as each station completes the hold for the jam time, 
it decrements the channel state variable and checks to see if it 
has returned to zero. If it has, all stations involved in the 
collision have now completed their jam and the channel is free. 
Any stations in the channel queue are now awakened to compete for 
the channel. If the channel state variable is not zero, all 
station involved in the collision have not completed their jam 
and the channel is not free. 
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MAKEFILE DESCRIPTION 


A makefile is available to compile all code required by the 
simulation. By typing make, an executable called network will be 
built. Since the system file that contains the grammar rules used 
by make does not include the Simula language, all dependencies 
and rules for construction must be explicitly stated. This is 
difficult to implement in Simula, since compiling a ".sim" file 
results in the creation of a ".o" file and a ".s" file. The ".o" 
file contains the object code, and the " .s" file is used by the 
assembler phase of compilation. To make use of the make utility, 
it was decided to state dependencies based on the ".o" files 
alone, since the " .s" files are automatically generated with the 
compilation anyway . 

To add a new Simula file to the list of files to be 
compiled, the following format should be used: 

new.o: new. sim 

$(SIM_COMP) $* 

$(SIM_ASM) $*.o $*.s 

To add a Simula file that will be used as an include file in 
another Simula file, the dependency is listed directly: 

old.o: new. sim \ 

other_include .sim 

The above steps will insure that the dependencies are always 
correct, so that recompilation of the appropriate files is 
automatic after any modifications. 

The makefile contains two targets, the network executable 
and a debug executable. To use the debugger, code must be 
compiled with the debug option and thus it is included. To make a 
debug executable, type " make dnetwork" . This will compile the 
code with a debug option. 

When one Simula file is used as an include file in another 
Simula file, no separate ".o" file is created for the included 
".sim" file. Instead, the Simula code in the include file is 
incorporated in the ".o” file generated for the master file. That 
is why the included ".sim" file is listed as a dependency for the 
master ".sim" file rather than its ".o" file that one might think 
should be created. 



CONCLUSION 


In its current state of implementation, this simulation 
models only LAN composed of stations. A logical progression would 
be to implement bridges to allow for a more complex LAN. This 
could be accomplished by creating another layer above the network 
layer to call the simulation. Since the network layer as 
currently implemented is a simulation call, it would have to be 
modified so that there is a single simulation running rather than 
a series of network simulations. 

Another area of future development is the user interface. 
Currently, a simple menu is presented to the user and they type 
in the letter corresponding to their choice of station type. As 
the user definable parameters increase, a graphical menu 
interface may be more appropriate. 
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SANTA CLARA UNIVERSITY 
DEVELOPED FOR NASA/AMES 


NCC2-554 

PERFORMANCE ANALYSIS OF LAN ; 


this -file contains the lowest level declarations 
required in this simulation. Most of the following classes 
are either inherited or referenced by succeeding classes. ; 


SIMULATION CLASS level.. 0 5 
BEGIN 


INTEGER u; 


seed number for random 
number generator; 


HEAD CLASS message..queue( title) ; 
VALUE title; TEXT title; 

BEGIN 
END ; 


, ’.INK CLASS dataunit; 

1 BEGIN 

INTEGER bytes , dest_addr, source_.acldr ; 
END; 

dataunit CLASS message; 

BEGIN 

INTEGER type, id; 

long real createtime, donetime; 
long real time_per_..message; 

BOOLEAN rejected; 

createtime := 0 . 0 ; 
done time := 0 . 0 ; 
time?. .per ...message : — 0 . 0 ; 
rejected : — FALSE; 

END; 

message CLASS frameunit; 

BEGIN 

REF (message) msgptr; 

INTEGER seqnum , acknum, setwindow; 
BOOLEAN ack, fin; 


ack FALSE; 
fin s~ FALSE; 

■ :nd; 

HEAD CLASS buffer; 

BEGIN 

REF (frameunit) front, tail, current, msgtail; ! buffer ref. frame pointers; 
INTEGER maxsize, cursize; 

INTEGER state; 


•front s- NONE ; 
tail s- NONE; 
current s- NONE ; 
i msgtail s~ NONE; 

END ; 

PROCESS CLASS timer; 

BEGIN 

INTEGER status; 

END — oT — timer; 

PROCESS CLASS en ti ty ( ti tie , id ,dma_xf er__rate, in terrupt__time ) ; 
VALUE title; TEXT title; 

INTEGER id; 

Ion <3 real dma__xfer_rate; 
long real interrupt_time; 

BEGIN 

REF ( buffer ) buf ; 

REF(f rameunit) frame; 

INTEGER state; 

INTEGER re turn _ code; 




procedure reset; 

called by: specific process reset routines; 

calls: none; 

returns: none; 

globals used: ; 

state := FREE ( set to 0 ) ; 
frame? :== none; 


! actions: ; 

1 resets the entity variables; 

j ^jkjIc**********************^*************^****^************^ 5 

procedure reset; 

begin 

! reset the variables; 

state :~ 0; ! this sets it to free; 

frame :— none; 


end ; 


! main body., set variables; 
begin 

! get buffer, set buffer state to EMPTY; 
buf :- new buffer; 
buf. state := 0; 

! set state of entity to FREE 
state : = 0; 

end ; 




! main program of simulation; 

BEZGIN 

u 1000003 ; ! initialize seed 

□^D***l1AINPR0GRAi T l*** ; 

END***S I MUL AT 1 ON*** ; 


SANTA CLARA UNIVERSITY 
DEVELOPED FOR NASA/AMES 
NCC2-554 


PERFORMANCE ANALYSIS OF LAN ; 

! jk************^*^*************^)*:^*^*****^^^*^********* ; 
! level_l »s.im — subclass o f level_0 ; 

l 

this file inherits all knowledge of 
level_0 simulation and declares classes that 
define common characteristics of the layers 
mode 1 ed i n t h i s s i mu 1 a ton ; 

! ft***#****#***:*:*:************^ 5 

external CLASS level_0s 

1 eve 1 _0 CLASS 1 eve 1 _ 1 ; 

begin”' 

".INCLUDE! def ine_def . sim 

en t i ty CLASS hos t ; 

B FIG IN 

ref ( messag enqueue ) msg_queue ; 

| message) host_msg; 

END*+OF++HOST ; 


entity CLASS tcp; 

BEGIN 

REF (window) win ; 

REF (f rameuni t ) lastsen t 5 
REF ( timeout_queue) timeoutq ; 

BOOLEAN timed^out , next j^sg 5 
INTEGER timeout^coun t ; 

INTEGER buf_space last_byte_sen t ; 

integer procedure receive ( re cvframe) u 
REF (f rameuni t) re cvframe ; 


! procedure receive ? 

! ; 

! This procedure handles the addition of frames to the tcp ; 

! buffer. If there is room in the buffer the frame is ; 

! added and the? buffer parameters and pointers are updated, ; 

! otherwise the receive fails. 5 

! Returns: OK, FAILED ; 

w 

! Globals: buf (current buffer) ; 

begin 

integer rc; 

if buf. state = EMPTY then 

begin ! buffer is empty, receive the frame & update pointers 

TMTn^k.i-f ’I • 



- recvf rame; 
s — recvf rame; 
recvf ramc? ; 

update the state erf the buffer 
set flag to indicate message ready to send 
set the return code to indicate success 
processing complete, leave this procedure 


buf. front s- 
buf .current 
buf.tail s- 
buf . s ta te s = NEiNF 
nex trnsg s -- TRUE ; 
rc: s — OK; 
go to Return; 

end 

else if buf. state - WEMF then ... , , 

bpgjn ! buffer is not empty, not full, check size of frame 

if ( buf -maxsize >= buf.cursize + recvf rame. bytes) then 
begin ! okay to receive frame, receive it Sc perform updates 

recvf rame- INTG( buf ) ; 
buf - ta i I s - recvf ramc? ; 
i f ( buf » c:u rrent ~~ NONE ) t hen 
beg i n 

buf . current s- recvf rame; 

end ; 

rc OK; 

qo to Return; _ 

end else begin ! no room for frame, set buffer to FULL. Sc fail receive; 

buf - s ta te : 35 FULL ; 
rc s® FAILED; 
go to Return; 

end ; 

end 

else if buf * state = FULL then 

begin ! buffer FULL , receive fails ” 

rc s= FAILED; 
go to Return; 

end ; 

Returns 

begin 

receive z — rc; 

if (rc = OK) then . 

begin ! if status okay, update the buffer s curren t size , 

buf.cursize s~ buf.cursize + recvf rame. bytes; 

end ; 

end ; 

end — of — receive ; 


( 


procedure reset_buff er ; 

! procedure reset„buffer * 

! This procedure reset all the buffer parameters to their ; 

! initial (empty) state. ’ 

! Globals: buf (current buffer) 5 


begin 

buf. front HONE; 
buf . cu r ren t : - NONE ; 
buf.tail s~ HONE; 
buf. state := EMPTY; 
buf.cursize :== 0; 

end ; 

integer procedures outof buf (msg__id ) ; 
INTEGER msg_id; 


I i-> iro i i rn m i + /*%*■#* Ki t 


! This procedure removes all the frames of a given message ; 
! from the tcp buffer and performs the required updates z 

f -.o keep the buffer current- " 

i |i 

! Returns: OK 5 


Globals s baf^space, buf , nextjnsq , return^code 


begin 

REF(frameunit) outofptr., currentptr; 
integer count; 
count 0; 

currentptr z — buf -FIRST; ! start at the beginning of the buffer (buf ) 

re turn code s « FAILED ; 


while curren tplr—Z—NONE do ! search until end of buf reached 
beg i n 

count : = count +Ij ! trace through the loop for debug 

i f cu r ren t p t r • i d -rnsg _ id t hen 

begin ! take all matching id tf's out of buf 

outofptr currentptr; 

cu rrentptr s - ( cu r ren t p t r ) - SUC ; 
outofptr -OUT ; 
r&turn_cod& OK; 

buf _s pace buf _s pace + outofptr- bytes ; 

end else 

begin ! no match, update current pointer to next 

currentptr ( curren tptr ) -SUC; 

end ; 


end ; 

if (return_code = OK) then 
begin 

buf -front s- buf - FIRST ; ! update pointers if frames removed from buf 


if (buf -front NONE) then 

begin 

nexVmsg := TRUE; ! if 

end else 
begin 

reset__buf fer ; ! no 

end ; 

end ; 

outofbuf 5 - re turn _ code ; 
en d — of — outofbuf; 


another message in buf , set flag to sene 
more frames to send, reset the buffer 


boolean procedure reserve_buffer_space(addbytes) ; 

i * — * ; 

! procedure reserve^buffer^space ? 

i ? 

I This procedure checks the space in the buffer to see if ; 
! the entire message will fit- If so, the space is reserved 5 
! and TRUE is returned, else FALSE is returned- This ; 

! prevents partial messages in the buffer- 3 

1 ; 

1© turns: TRUE - success, FALSE - failure 5 

r- - ; 

! Globals s buf (current buffer), buf_space 3 

I ; 

integer aclclbytes ; 
begi n 

i n teg e r by tes_l ef t ; 

K v /+ 1 /-i*#- *1* — **r » t -rf* r~ 





i. f ( bytes_ left >== 0 ) t hen 
begin 

buf _s pa c© r. “ by t©s_ 1 ef t ; 
reserve^buffer^space s ™ TRUE ; 
end else begin 

buf - s ta te : ™ FULL ; 

rose rve_ buffer^s pace FALSE; 

end ; 

end ; 


integer procedure set_donet.ime(msgptr ) ; 

I „ ... n 

! !i 

! proc^duv’^ set_donetime S 

! |i 

! This procedure sets the donetime parameter of the message ; 

! to indicate that the message has been sent and U 

! acknowledged- This is done for data collection statistics; 

! purposes. S 

! 5 

! Returns: OK* FAILED 5 

\ ; 

! Globalss buf (current buffer) 5 


REF ( messag e ) rnsg p t r ; 
beg i n 

if msgptr=/= NONE then ! check for valid message pointer 
begin 

msgptr. done time s~ TIME; ! set the current time to message done time 
set_d one time s” OK; ! status of praa^dur^ is okay 

end else begin 

set_d one time s— FAILED; 

end ; 

end ; 

begin !main; 

! set up parameters and instantiate window; 
win s~ new window; 
win -state EMPTY; 
win-maxsize s — 10240; 
win.cursize s= 0; 
timeoutq a- new timeou t_queue ; 
timeout^ count s= 0; 
t imedou t :== FALSE; 
nex t_msg s — FALSE; 
end — of — main ; 


END++QF++TCP; 


entity CLASS ip; 

BEGIN 

BOOLEAN csmacd_rc ; 

F lean procedure receive ( recvframe ) ; 

Rt-F ( frameun it) re cvf r ame ; 
begin 

if (state ~ FREE) and (frame «« NONE) then 
begin 

state s- READY; 
frame s- recvframe; 

. ™ TC'i icr . 


rearm i io 



end else begin 

receive : = FALSE; 

end ; 

-i ! J 
END ; 


entity CLASS csmacd; 

BEGIN 

boolean change, state; ! -flag for change of state; 

boolean buffer^ interrupt; ! flag for frames in the buffer; 


! ref ( frameunit ) procedure get_f rame„f rom_buffer; 

I f» 

: - j 

! called by: csmacd_txs„acquire_channel , csmacd_rxs__idle ; 

l * 

" * !» 

! calls: none; 

■ Jl 

! returns: ; 

! a pointer to the frame from the buffer; 

i if the buffer is empty, pointer to none; 

i? , 

^ n 

_a globals used: ; 

j buf - the current buffer; 

( actions: ; 

= i takes a frame out of the buffer; 

:i should set the buffer state to empty; 

! does not do so because of integrity of; 

! buffer during transmission , i -e. , buffer; 

i should not be released until frame is ; 

! transmitted; 

l * 

! ********************************************************** 5 

ref (frameunit) procedure get„f rame__f rom_buff er ; 

begin 

ref (frameunit) out_frame; 

! initialize the variables; 
out_frame :~ none; 

! if the buffer isn't empty, get the frame out; 
if ( buf =/- none) then 
beg i n 

if ( not ( buf. empty )) then 
beg in 

! get the frame from the buffer ; 
out__f rame : buf. first; 
on t_f rame . ou t ; 

! set the buffer state; 

! buf. state := EMPTY ; 

end ; 
end ; 

! set the return variable; 
get_f rame_.f rom__buf f er s~ out_frame; 


end 5 


• !* 

! procedure clear_.buf fer ; 

• ? 

! called by: reset ; 

• .■» 

! calls: none; 

• .5 

! returns: none r, 

• 5 

! global s used: ; 

! see below; 

• "> 

! actions: ;; 

! resets the csmacd buffer variables; 

! 5K**i»c**5|o|c>lc*J|o|oK5KJKi1oloto|o^JK>!oK>K)K>KXotc*>KJK>1oK3|ol«H<>K>K>K**>lo4oK>»C5»t>lc*5»cJK>f«K5Ki|o|c**5«< 

procedure clear_buf fer ; 

begin 

! set variables back to zero; 
buf. state :™ FREE; 

! reset buffer interrupt; 
buffer_in terrupt :-- false; 

! reset the frame pointers; 
buf. clear ; 

end ; 


! main body for csmacd; 
begin 

change„state : = false; 
buf fer__in terrupt := false; 

end ; 

END; 

CLASS window; 

BEGIN 

REF (dataunit) current, front, back; 
INTEGER maxsize, cursize; 

INTEGER state; 

INTEGER rc; ! rc -- return code; 

integer procedure rxtcp_outof (f rameptr) ; 

REF(f rameuni t ) f rameptr; 

begin 

cursize : = cursize -• f rameptr . bytes ; 

if (cursize > 0 ) then 

begin 

s ta te s ~ NENF ; 
front front.SUC; 
end else begin 

reset_window ; 

end ; 

rxtcp_outof :- OK; 
en d — of — r x t c p_ou t of ; 


■l i-\ + n n n k - 


n»rr%rnrln wn + v + r 1 n ru i + nf* i -P w rm cr> 4- w™ S 


REF (frameun it) frameptr; 
begin 

en d — of — t x t c p_ou tof ; 

procedure reset. window; 
begin 

state := EMPTY; 
cursize s= 0; 
f r on t s — HOME ; 
cu r ren t : — HONE ; 
back s- NONE; 
end ; 


boolean procedure reserve., space ( bytes 
integer bytes; 
beg in 

if maxsize > (cursize + bytes) then 
begin 

cursize 5 = cursize + bytes; 
reserve_space s~ TRUE; 
end else begin 

reserve__spac.e s~ HALSE; 

end ; 
end ; 

procedure can cel_reserve__space ( bytes) 

integer bytes; 

begin 

cursize s= cursize - bytes; 
end ; 

boolean procedure addto(f rameptr ) ; 

REF(f rameunit) frameptr; 

begin 

if state = FULL then 
begin 

addto : = F ALSE ; 
go to Return; 

end ; 

if state = NENF then 
begin 

if maxsize >= cursize then 
begin 

state : = NENF; 
current f rameptr; 

back f rameptr; 

addto := TRUE; 
go to Return; 

end ; 

if maxsize < cursize then 
begin 

state s~ FULL; 
addto s= FALSE; 
go to Return; 

end ; 

end ; 

if state = EMPTY then 
begin 

state := NENF; 
front s- f rameptr; 
current f rameptr; 

n w tv m<rvr> + v • 


add to s= TRUE; 
go to Return; 

end ; 

* .urns 
end ; 

begin ! #** window - main program **** ! 5 

state s ™ 0; 
end; 

END++0F++WIND0W ; 

•1EAD CLASS timeout_queue; 

begin 

_»nd ; 

_INI< CLASS timeout_unit; 

:>eg i n 

REF < t c p ) 1 aye r ; 

REF ( tcp_ timer) timer ptr; 

REF ( f r ameun it) f rarne p t r ; 
long real time_up; 
integer event; 
i n teg e r s ta tus ; 

status s= N0T_SET; 

>?n d ; 

,imer CLASS tcp_timer; 

’( timeoutjini t ) tc prevent; 

Jong real cur r time; 

procedure setup ( timeout_even t ) ; 

REF ( t i meou t_un it) t i meou t_e ven t ; 
begin 

tcp_event :■*** timeout^event; 
tcp_ 0 ven t „ status s~ SET; 

end ; 

procedure start ; 
begin 

hold ( tcp_event- time_up) ; 
t i meou t_oc cur red ; 

end ; 

procedure timeout_occurred ; 
begin 

( tcp even t N layer ) - timeout_coun t : ~ ( tcp^even t - layer ) - timeout_coun t *** 
tcp.„even t . status FRAME_TIMED w OUT; 

( tc: prevent . layer) - timed _out := TRUE; 
react ivate( tcp_event. layer) ; 

end ; 

beg in 

start; 

en d ; 

END; 


! main body; 

INCLUDE de*fine_assign -sim 

i”kir, » 
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this level inherits the characteristics of 
both level,, 0 and level _1 . It specifies the 

e x a c t n a tu re of a 1 1 en t i t .i es mod e 1 ed . 


! HoKH<>KHcHcHcH:H:H:H:>KHcHeHoK>K>KXeHeHcHeH<HeH:H:H:^H:H:HeH:H:H:*)kH:H:H:HoK>KH;>KH:H:H<H:HoK* ; 

e x te rn a 1 CL. ASS 1 eve I 1 ; 

level _1 class level_2 ( num_of_ stations , tau s prop_ delay, in terra pt_time, 

d a ta_r a te , d ma_ x f e r„_ ra te a ve r__a r r i va 1 _ 1 1 me , 
ma x _f r ame_s i z e , a ve r_msg_s i z e b__ i n t e r ru p t_ t i me 
b„d rna_ x f e r_ ra te „ n um.._ ty pea_s ta t i on s ) ; 


in teger num_of .^stations 5 
integer tau; 
long real prop delay; 
long real in terrupt_time; 

I on g rea 1 da ta__ r a te ; 
long real dma_xf er_rate; 
long real aver_arrival__t.ime ; 
integer max_f rame_si ze ; 
teger aver_msg _si ze ; 

<g real b_dma__xf er__rate; 
long real b_ i n ter rupt_ time; 
integer num_typea_stations; 


( 


BEGIN 

integer msg__count; ! unique message id number; 


% INCLUDE 
:: INCLUDE 
*i INCLUDE 
% INCLUDE 
•i INCLUDE 
^INCLUDE 
7 i INCLUDE 
"i INCLUDE 


collection _q ueue . s i m 
rx_host.sim 
tx_host -sim 
tep . sim 
i p . s i m 

t x _ esma cd .sim 
rx._csmacd .sim 
channel csmacd.sim 


ref (rx_csmacd) array srx._csmacd ( 1 snum_of_stations) ; 
ref ( tx_csmacd ) array stx__csmacd ( 1 :num__of_stations) ; 
ref ( channel_csmacd ) schannel_csmacd ; 


REF ( t x tep ) 

REF ( tx _ip) 

REF (rx_host) 

( ' (rx._tcp) 

REF (rx_ip) 

REF ( tx__host ) 
REF (collection 


array stx„tc:p( 1 snum_of__stations) ; 
array st.x._ip( 1 : num__of _s tat ions ) ; 
array srx__host ( 1 : num_of _stations) ; 
array sr x._tcp ( 1 : num_of_s tat ions ) ; 
array sr x__i p ( 1 : num._of_s tat ions ) ; 
array stx_host( 1 :num„of_s tat ions) ; 
_.queue) collectionq; ! collection 


queue for 


network; 


INTEGER i; 



BEGIN 

! initialize? variables; 


•for i 1 step :L until num_typea„stations do 

beg i n 

| ! create enti ties; 

srx host ( i ) ■ new rx__host ( " rx_host •, i v 

dma__xfer__rate, in terrupt_time) r, 

stx tcp(i) ; — new tx__tcp( " tx_tcp" , i , 

dma_xfer_rate, in ter rupt_ time ) ; 

srx tcp ( i ) 5 ~ new rx_tcp( " rx„tcp" i , 

clma._xfer_rate , in terrupt_time ) ; 

srx i p ( i ) s — n ew r x _ i p ( " r x _ i p 11 > t i ? 

cl ma.„ x f er_ r a te j, i n te r r u p t _ t i me ) 5 

stxip(i) new tx_ip( " tx_ip" , i , 

dma_xfer_rate* interrupt_time) ; 

srx csma cd ( i ) new rx^csmacd ( 11 rx_csfnacd n <i i h 

clfna^xfer^rate, in terrupt^time) ‘4 

^ stx csrnacd ( i ) s *•** new tx^csmacd ( ” tx^csmacd 11 ? i * 

dma_xfer_rate ? in terrupt_time) ; 

r stx host ( i ) s new tx^host ( 11 tx^host 11 * i 

r dma_xf er_rate ? in terrupt_time) ; 

end ; 

! configure type h stations; 

■for i : = ( n um__ ty pea _s ta t i on s + 1) step 1 until num__of ..stations do 
begin 

Fi ( ! create entities; 

srx host ( i ) new rx_host( " rx_host" , i , 

b_dma„xfer_rate,b_interrupt_time) ; 

stx_tcp(i) s- new tx_tcp( " tx_tcp" , i , 

b__dma_xf er_rate , b_in ter rupt__ time ) ; 

srx tcp(i) !~ new rx_tcp( " rx„tcp" ■< i „ 

b_d ma_ x -f e r_r a te , b_ i n t e r ru p t_ t :i. me ) ; 

srx_ip(i) new rx__ip( " rx__ip" , i , 

b„dma_xfer_rate , b_j.n terrupt__time) ; 

stx ip(i) s — new tx__ip( " tx__ip" , i , 

b„dma_xfer_rate, b_in terrupt__time) ; 

srx csmacd(i) s- new rx„csmacd ( " rx..csmacd " , i , 

b..dma„xfer_rate, b_in ter rupt_ time) ; 

stx _csmacd ( i ) new tx_,csntacd("tx_c5(nacd" ,i , 

b„dma„xfer_rate,b_.interrupt__time) ; 

stx host ( i ) new tx_host ( " tx_host" , i , 

b_dma_xfer_rate , b_in ter rupt_ time ) ; 

end ; 

•for i :== 1 step 1 until num_of_stations do 
begin 

! activate the entities; 
activate srx_csmacd ( i ) ; 

activate stx._csmacd ( i ) ; 

; activate srx_ip(i) ; 

activate stx_.ip(i) ; 
activate srx_tcp(i) ; 
activate stx_tcp(i) ; 
activate srx_host(i) ; 
activate stx_host(i) ; 


end ; 

! declare a channel ; 

schannel.„csmacd s~ new chan n e 1 _ c s m a c d 
collectionq s- new collection_queue; 
msg._ count := 1 3 


END ;; 
END 3 
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beg in 

external class level„2; 

"i INCLUDE prompt_user . sim 
I NCLUDE reacl_ i n put - s i m 
I NCLUDE g e t__ tau . s i rn 


:L n t eg e r n um_of _s tat i on s 5 
in teger num_typea_stations ; 
integer max_f rame_si ze ; 
integer aver_msg _si ze ; 
long real prop__delay; 
long real tau; 
long real interrupt_time; 
long real b._interrupt_time; 
long real data__rate; 

long real dma.._xf er_rate; 

long real b_dma_..xf er_rate; 

long real aver__arri val__time ; 


data transmission rate^Mbp secs; 
data transmission rate 5 Mbp secs; 

! data transmission rate^Mbp secs; 

! mean time between message arrival 


( 

! get the user input; 
prompt_user ; 


! get the station parameters; 

if ( num_typea_s tat ions = num_of_s tat ions) then 
begin 

read _in put ( "station _typea" ) ; 
b__in terrupt_time := 0-0; 
b_dma_x fer__rate : — 0.0; 

end 

else if ( num_typea_stations = 0) then 
begin 

read_j.nput( " station.. typeb" ) ; 
b_in terrupt_time := in terrupt__t.ime ; 
b__dma_xf er_rate : = dma_xfer_rate; 
in terrup t__time 0.0; 

dma_xf er__rate s== 0.0; 

end 

else 

begin 

read_input ( "station.. typeb" ) ; 

! save the interrupt time and dma_xfer_rate; 
b_in ter rupt_time : - interrupt_time; 
b_dma__xf er_rate s= dma_xfer_rate; 

! get type a input parameters; 
read_input ( " station_typea" ) ; 

end ; 

I r- -v 1 rf—i 1 1 


*1* *\ 1 1 ** 


tau s- get_tau? 

! _ s tart t he s i mu 1 a t i on ? 

' " ^el_2 ( num^of ^.stations , tau, prop^delay, interrupt_time P 
data^rate h dma,_xf er_rate aver_arrival_time * 
max_f rame__si ze ? aver^mscj^si ze h_in terrupt^time , 
b_dma_ x f e r _ r a te s n um_ typea_s ta t i on s ) 

beg i n 

ref (message) cur_message; ! test variable;; 

long real s.i.m_start f _ time ? ! starting time *for simulation 

long real sim~end_time? ! ending time for simulation? 

integer 15 

"•« I NCLUDE p r i n t _d a t a „ s i m 

! assign the start timer, 
s i m_s t a r t_ t i me : ~ t i me ; 



f check for successful messages? 
while ( co 1 lectionq - total_message_suc:cess < 

MIN_NUM_PER_STATION * num_of .^stations ) do 
begin 

hold (10) ? 

end ? 

! assign the end time? 
si m..en d_ti me :™ time? 

! collect the data? 

col lectionq - get_station_da ta ? 

! get the network throughput? 

col lectionq . get_network_data ( sim_star t_t ime 
sim_end_time) ? 

! print_clata? 
printjJata ? 


end ? 
en d 


I Ft 

! integer procedure get _num_of_s tat ions ; 


called by s network; 

returns the number of stations; 

g 1 o ba 1 s used" none; 

actions s queries the user for number of stations; 


\ >• 

| ******)M<***5Mc********* 

in teger procedure get j*mm _of _s tat ions ; 
begin 

l get the number of stations; 

outtex t C " Please input the number of stations" ) ; 
out image; 

g e t_n um_of _s ta t i on s s « 


i n i n t ; 


I 
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procedure read_in put 


called by: network 

calls: none 

action: reads the data for stations 

opens and closes the input file 

variables used: data_rate., 

in terrup t_time , 
a ve r_mscj _ s i 2 e , 
max_f rame_size„ 
aver_arrival_time 

- prop __d el ay 

procedure read_input( input_f ile) ; 

text in put_.fi le; 

begin 

ref(infile) in_.file; 

! open the input file; 

in„file :- new inf ile( input_f ile) ; 

in_f i le .open ( blanks (SO ) ) ; 

! get station data; 

data_rate : = in__f i le . in real ; in_fi le . in image ; 
in terrupt_time :== in„f ile. inreal ; in_f ile. inimage; 
dma_xf er_rate := in_.fi le . inreal ; in_f ile. in image; 
aver__ar rival_time := in__f ile. inreal ; in__f ile. inimage; 
prop_delay : = in__fi le. inreal ; in_f ile. inimage; 
max_f rame__size := in__f ile. inint; in_f ile. inimage; 
aver_msg__size := in_f ile. inint; in_f ile. inimage; 

! close the file; 
in_f i le . close ; 


1 I ; 

ViV 



\ 

I U 

' !l 

; integer procedure prompt. ..user; 

! called by 5 network; 

* 3 

! returns the number of stations; 

* 3 

! g 1 o ba 1 s used r, n on e ; 

■ 3 

! actions: queries the user for number of stations; 

* 3 

i •< 

* 3 

* 3 

* 3 

* 3 

* 3 

procedure prompt_user ; 
begin 

integer response; 

! get the number of stations; 

outtex t( " Please input the number of stations"); 
on t i mag e ; 
out image ;; 

j 

* num^of ^stations s r ~ inint; 

outtextC Please choose station configuration 11 ) 5 


on t image ; 
ou t image; 


outtextC" 


TYPE A 

TYPE 

B" ) ; 

outirnage; 

outirnage; 

outtextC" 

interrupt time 

1.0 

0.5" ) 

ji 

outirnage ; 

outtextC 

dma transfer rate 

40.0 

80 * 0 

) ; 

outirnage; 

outtex t C " 

maximum frame size 

1500 

1500" 

) 5 

outirnage; 

outtex t( " 

average interarrival time 

0.000004 

0.000004" ) ; 

outirnage; 

outtextC 

average message size 

5000 

5000" 

) ; 


outirnage ; 
ou t image; 


outtex t< H PLEASE ENTER CHOICE"); 
ou timage ; 

outtex t( " TYPE A 1" ) ; 

outirnage ; 

outtex t( " TYPE B 2"); 

outirnage; 

outtex t( 11 MIXTURE 3" ) ; 

outirnage; 

! get the response; 
response s~ inint; 


- ~ i~ i 


if ( response = 1 ) then 
begin 

n um_ t ypea_s t a t i on s s ~ n um_of _s t a t i on s 5 

end 

else if ( response = 2 ) then 
begin 

num_typea_sta t ions s= 0; 

end 
else 
beg i n 

! wants a combination of types; 

! get the number of type A stations; 

outtext ( 11 Please input the number of TYPE A station 
out image; 
ou ti mage; 


n u m _ t y p e a _s t a t i o ns s « i n i n t ; 

! make sure we got an o . k . number; 

if ( num_typea_s tat ions > nurn^of ^stations ) then 
begin 

num_ type a_sta t ions s — num_of_s tat ions; 

end 

else if ( num_typea_s tat ions < 0 ) then 
beg in 

num_typea_stations 0; 

end ; 


! SANTA CLARA UNIVERSITY 

DEVELOPED FOR NASA/ AMES 
NCC2-554 

PERFORMANCE ANALYSIS OF LAN ; 

f sV ‘X* ^ *4/ vLr 'X XX X X X X X X X X X X X X X X X X X X X X XXX X X X X X X X X X X X X X X X X XXX , 4r N Jr 

/p ^ /p /p /p ^ /p ^ /p z^ -rf, «r^ /p /p zp ^ ^p /p /p /p /P /P /P ^P ^ /P ^P sfl /f%. /p ^ /P fP /P ^P /P /P xfv ^P /p jP ^P Sfl /P f ^P /p 


p ro ced u re p r i n t_d a t a 


called by 5 network 

cal Is s none 

actions prints the data for stations 

and networks 

opens and closes the? output file? 
variables used n col lection _queue variables 

X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 'Jr / m 

^P *P »P ^P ^P *P *P »P »P rP ^P ^P »P ^P ^P Z^\ ^P ^P ^P Pi Pk ^P Pk Pk Pk Jp ^P /p #P Pk ^P pi /p Pk Pk Pk /p Pk Pk Pk P^ Pk Pk P> P^ Z(> ^|V jT || 

( )cedure pr in t data ; 
bt?g i n 

ref (outf i le) out_f ile; 

! open the output file; 

out_file z~~ new outf ile ( "output" ) ; 

out_f ile. open ( blanks (80) ) ; 

! print station data; 
out_f ile.outtex t( "station tt " ) ; 
out_f ile . out text ( " throughput " ) ; 

out_f ile-outtext ( "aver delay / frame 11 ) ; 
out_f ile.outtex t( "success " ) s 
out__f ile. out text ( " reject " ) ; 
out_/f i le . out image; 

for i 8= 1 step 1 until num_of_s tat ions do 
begin 

out_f ile.outint< i .» 5) ; 

°ut_f ile.outtex t(" " ) ; 

out_f ile.outreal ( collectionq . throughput( i ) ., 10,20) ; 
out^f ile.outtex t( 11 " ) ; 

out__f i le - out real (collectionq- aver_delay_per_f rame ( i ) ? 10;, 20) ; 
out_f ile.outtex t(" " ) ; 

out^f ile. out in t ( collectionq - messag e_.su c cess ( i ) 9 5) ; 
out_f ile.outint( collectionq .message_not_sen t ( i ) , 5 ) ; 
ou t_f i le- out image ; 

end ; 

! print the network characteristi cs; 

out_f ile -out text ( " network^ throughput « " ) ; 

out_f ile.outreal ( col lectionq -network_throug hput ? 10,20) ; 



out_*f ile.outtext ( " aver^delay^per^fraffle = " ) ; 

out^f ile.outreal ( col lectionq .network^averjelay, 10,20) ; 

out_f i le - out image ; 

ou t_f i 1 e . ou t te xt(" si mu 1 a t i on t i me " ) ; 

outjfile. out real ( (sim_ end time — sim_ start_time) ,10,20) 
ou t jf i 1 e « ou t i mag e 5 

I close the file; 
ou t_f i 1 e - c 1 ose ; 


end ;; 


f 



I . 

■ !» 

' long real procedure get_tau 5 

i called by :: network; 

• ^ 

! returns tau; 

• ? 

[ globals used: ; 

! long real max_net_leng t h ; 

! long real prop_delay; 

■ ? 

! actions s calculates tau; 


! *************************^ 
long real procedure get_tau; 
begin 

1 on g real max _n e t _ 1 en g t h ; 

! assign variables; 

max_net_leng th s~ 2-5; ! max length of network; 

get_tau s~ max_net_leng th * prop_delay; 


end ; 





HEAD CLASS co 1 1 e c t i on _q ueue 

defines the queue used to collect data 

called by s level _2.sim - allocates collection queue 
tx_.tcp.sim - puts messages into queue 

calls: none 

actions: defines collection queue 

initializes collection queue variables 


HEAD CLASS collection ..queue ; 
BEGIN 


integer array 
integer array 
integer array 
integer array 


integer array 

long real 

long real 

long real 

long real 
long real 
integer 
integer i; 


total_num_.of_by tes( 1 : num_.of ...stations ) ; 

! total num.._of data bytes; 
total_.num_.of _mes sages ( 1 : num_of_s tat ions) ; 

! total nudi.of data messages; 
total_num_of _f rames ( 1 : num.of. stations ) ; 

! total num_of frames sent; 
message_success( 1 :num_of_s tat ions) ; 

I number of messages successfully 
received ; 

message _nat_sent ( 1 :num_of__stations) ; 

! number of messages not sent; 
array total_through_time( 1 :num_of _stations) ; 

! total time traveling through; 
array throughput 1 ;num._of„_stations) ; 

! total tt bytes / total time ; 
array aver_delay._per_f rame ( 1 :num_of _stations ) ; 

! total time per message / total 
n e two r k_ t h r oug h pu t ; 
ne two rk_aver_.de lay; 
total_message_success ; 


frames 


"i INCLUDE collect_data„sim 
"L I NCLUDE g e t _s t a t i on _d a ta . s i m 
'^INCLUDE get_network_data . sirn 


! main body; 

! initialize variables; 

for i:= 1 step 1 until num_of _stations do 
begin 

total_num_of_bytes(i) :- O; 
total_num_of._messages( i ) 0; 

total_num_of_f rames ( i ) : O; 

message_success ( i ) : = 0 ; 

total_through_time( i ) := 0.0; 

throughput ( i ) := 0.0; 
aver_de'lay_per_f rame( i ) :- 0.0; 

end ; 

network_throughput := 0.0; 

i«% J~. * 1 - 1 .1/1 IT l.* -i 1 i/n u" ri /n 1 1\ / ■ "* A A n 



total _message_.su c cess := On 


END; 


I N 

• H 

• integer procedure get_ f rames__per_message; 

! called by; col lect_data ; 

‘ ? 

! returns the number o-f frames per message; 

■ !* 

! globals used; message. bytes; 

’ !> 

! actions: calculates frames per messages 5 

• n 
■ !• 

■ !■ 

• !» 

* J 1 

* fi 

! ***********************^^ 

integer procedure get_f rames _per__mossage ( nurn _o f. ...bytes) ; 

:i. nteger num_of kbytes ; 
beg in 

integer bytes_remaining ; 
in teger nurn_of rames ; 


( 


! initialize variables; 

bytes_ remain ing s« num^of gbytes ; 

num^of^f rames s - 0; 


while ( bytes__remaining > 0 ) do 
beg i n 

! increment frame count; 

num^of^f rames s— num w of_f rames + 1; 


end ; 


! decrement by*tes_remain ing ; 
bytes remaining z- bytes_remaining — 
BYTES_PER_FRANE ; 


ge t._f rames_per_message s— num_of__f rames ; 


end ; 


1 M 

• Jl 

1 procedure? col lect_data ; 


ca 1 1 eel by s co 1 1 e c t i on _q ueue ; 

collects station data for messages 5 

globals used 5 ; 

messag e - c: rea te t i me ; 
message « d on e t i me 5 
messag e „ to t a 1 1 :L me ;; 
message. rejected ; 
d a taun i t - bytes ; 

actions: collects data statistics for messages 5 
sets msg « time._ per message ; 
collects time per station; 
collects frames per station; 

collects the tf of useful bytes ( data bytes ); 
per station ; 


( ? '.*******************^ ; 

p, ocedure collect_data( cur_message) ; 

ref (message) cur__message; ! current message examined; 

begin 

"•INCLUDE get_f rames_.per_message • sim 

« INCLUDE in c_message_coun t - sim 

! did we get a message; 

if ( cur ..message ==A~ none ) then 

begin 

! do we have a data message; 

! if so, collect data; 
if ( cur M message. type ~ DATA ) then 
beg in 

! was this a successful transmission; 
if ( cur ^message. done time <> 0*0 ) then 
begin 

if ( not cur„message» rejected ) then 
beg in 

! collect data; 

! increment the message count; 

inc messag e_ coun t ( cur. .message - sour ce^add r ) ; 

! get the time it took to send the message; 
cur_message- time..per..message s= 

cur..message * donetime - 
cur^message. create time ; 

! add it to sending station time; 
total _throug h_ ti me ( cur..message - source., add r ) 
total_through_time( cur^message- source 
cu r ...messag e * t i me_ pe r ..message 


..add r ) + 



! increment the number of messages; 
to ta 1 _n um_of _messag es ( cu r „messag e - sour ce_„ad dr) 
i total num of .messages ( cur_message. source.. 

+”l ; 

! collect the number of bytes; 

to ta 1 _num_of _ by tes ( cu r_ message . sou r ce_ad dr) s “ 
to ta 1 n um__of _by tes ( cur_messag e . sou r ce_ad < 
cu r _messag e - bytes ; 

! get num„of_f rames per message; 

to tal_num_.of_f rames ( cur_message . sour ce_add r ) : - 
to tal_num„of _f rames ( cur_message . sour ce.._add r ) 


get_f rames__per_message( cur__message. bytes) ; 

end ; 

end ; 

end ; 

! take the message out of the queue; 
cur._messag e - ou t ; 

end 

else 

begin 

outtex t ( " Error in get_data. msg is NULL pointer"); 
out image; 

end ; 
f '5 


add r) 


J r ) r 



m 

Jl 

p ro cedu re i n c_fltessage_coun t ; 
ca 1 1 ed bys collect_data5 
returns none 5 

!f 

globals used: messag e_.su c cess ; 

actions: increments the number of successful messages 

per station. If the number of messages per station 
is less than M I N„HUf'l„F'ER_ST AT I ON , then the total 
number of messages per network is incremented. 

For the simulation to be successful in 
data collection, every station must have a guaranteed 
m i n i mun t h roug h pu t . ; 


I » 

procedure inc_message_coun t( id ) ? 
integer id; 
beg in 

^ ! increment the number cf station messages 5 

messag e_suc cess ( id ) s — messag e_suc cess ( id ) + 1*1 

! should we increment the net success messages? 5 
i f ( messag e^su c cess ( id ) <= MIN_NUM_PER_SrATION ) then 

total_message_success :== total_message_success + 1 ; 


end 5 


! >K>M<************>m:*****^^ 

I tf 

• J 

1 procedure get__station_data ; 

! called by: network ( call to simulation ); 

• 5 

! collects station data for messages; 

- 3 

! globals used: ; 

! total„tirne; 

! total__through__time; 

! total_num._o f_bytes ; 

! total_num_of .messages ; 

! dataun it. bytes; 

• !’ 

! actions: collects data statistics for messages; 

! collects time per station; 

! collects the # of useful bytes ( data bytes ); 

! per station; 

■ ;i 

* n 

• ji 


procedure get_station_data; 
( )in 

integer i; 


! loop through the stations; 

for i:= 1 step 1 until num_of_stations do 
begin 

! check for zero divide; 

if ( total„through_time( i ) -O- 0.0 ) then 

beg in 

! calculate the throughput for this station; 
throughput ( i ) total__num__of_bytes( i ) / 

total_through_time( i ) ; 


en d ; 


! calculate average delay per frame for this station 
aver delay__per__f rame( i ) total_throug h_time ( i ) / 

total_num__of _f rames ( i ) ; 


end ; 


i. 


end ; 


I * 

• !* 

1 procedure g e t __ n e t w o r k_ cl at a r, 

! called by: network ( call to simulation ) ; 

* I’ 

! collects station data -for messages; 

• ? 

! globally used: n 

! n e two r k_ t h roug h pu t ^ 

! calculates network time "from sim_end — sim^start; 

• !» 

! actions: collects data statistics for network; 

! calculates throughput per network; 

! calculates average packet delay per network; 


■ ? 

' ? 

■ !* 

! jjc*************^*^***^^^^^***^***^*****^*^*****************^***; 
procedure get _ne twork_data ( sim_s tar t_ time , sim_end_t ime ) ; 
long real sim„start_time; ! starting time of Simula ti 

long real sim_end_time ; i ending time of simulation 

beg i n 

! collection variables; 

^ integer net__total_num_of__byt.es; ! total num_of data bytes; 

long real net_total„through_time ; 
long real net_total_aver_delay; 
long real throughput; 

integer i; 


! initialize variables; 

net _to tal_throug h_ time : = sim_end_time — sim_start_time; 
net_total„num„of _bytes:= O; 
throughput := 0-0; 
n e t__ to tal__aver__del ay : - 0.0; 


! loop through the station collection queue; 
for i 1 step 1 until num_of _stations do 
beg in 

! collect the number of bytes; 

n e t_ to t a 1 _n urn _of _ by tes := net_total_num_of _bytes + 
total_num„of _bytes ( i ) ; 


en d ; 


! collect the average delay per frame; 
n e t_. to t a 1 _ave r__d el ay net__total_aver_delay + 

aver_delay_per_f rame( i ) ; 


! calculate the throughput for this network; 


if ( 
begin 


end ; 


net_ to tal_ throng h_time <> 0.0 ) then 

n e two rk_ throughput := net_total_num_of_ bytes / 
n e t_ total _ t h roug h _ t ime ; 


! calculate mean delay per frame; 



begin 



( 
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TXNOST - transmitter host * 

STATES: Not Applicable ’ 

Actions: Use station statistics to generate the arrival and lengths v, 

of new messages. The messages are put into a host message : 

queue and the corresponding TCP layer is notified (activated)?, 
to allow action if its state/buffer permits. !i 

U the random seed number used as input to all random ;; 

number generations. 5 

message count ~ unique id numbers for the messages, for ; 
tracking and debugging primarily. 

mhall change random number generator 

from ran dint to negexp 


Global s Used 


History 

1/11/89 


( 1/19/89 


2/17/89 


mhall put a check for 

MAX_riESSAGE_COUNT before 
creating message, keep track of 
rejected attempts when quetie is 
full 

mhall changed code to use 

aver_msg_size 


host CLASS tx.„host; 

BEGIN 

long real arrival„time ; ! time until arrival; 

integer message_status ; 


procedure cjenerat^messages; 
begin 

! generate arrival of a message 5 

arr ival_time := negexp( aver_arrival_time ? u); 

hold ( arri val_time ) ; ! no action until message arrival time ; 


! can we generate another message £ 

i*f ( msg_queue. cardinal < MAX_HOST_MESSAGE_COUNT ) then 
begin 

! create and initialize the new message ? 

host_msg s- new message; 

^ host_msg . c rea teti me TIME ; 

hos t_rnsg -id : = rnsg _ coun t ; 

! this parameter is used primarily to allow ; 

! for tracking of messages, a unique idtt ; 


! ass i q n sou r ce an d d es t i n a t i on ad d ress ; 
host_msg - source^addr s = id ; 


! q e t a d es 1 1 n a t i on o t he r t han i tse 1 f ; 
host_msg «dest_addr := ranclinK 1 •, num_of ^.stations,, 
while host_msg -dest^addr == id do 
beg i n 

hos t_msg « dest^add r s = 

randint( 1 num_of ...stations* u); 


end ; 


host_msg - type s ™ ; DAT A ; 

! get a size for the message; 

! host_msg - by tes : — ran cl i n t ( m i n by tes * ma x by tes M u ) 
host_msg „ bytes s« aver_msg„.size; 


( 

begin 


end ; 


end 
else 
beg i n 


end ; 


! into the message queue; 
hostjnsg - In to (msg ...queue) ; 


! keep track of the ones that don't get in; 
collectionq -message_not_sen t ( id ) s~ 

collectionq «message__not_sent ( id ) + 1 ; 


! this layer doesn't passivate on initializati 
msg queue s — new messaqe_queue( '* tx_host" ) ; 


! set characteristics of station message*; 
! if (id <« (num_of_s tat ions/2) ) then 
beg i n 


m in bytes 
! max bytes 

lend c*lse begin 
min bytes 
! max by tes 


z = 50 ; 
150; 

: “ 8000; 

: = 10000 ; 


! end ; 


while TRUE do ! generate messages forever ; 

begin 


! generate messages; 
genera te_messages ; 
if stx_tcp( id ) . IDLE then 
beg i n 

activate stx_tcp(id); 

end ; 

hold ( in terrupt_time) ; 


end ; 
END; 


end — of — while; 
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RX_HOST ~ receiver host 
STATES: FREE, RECEIVING 

Actions: Receive a completed message from the TCP layer. Delay to 

simulate the DMA transfer of data. Reset to be ready to 
re ce i ve t he n e x t messag e . 


host CLASS rx_host ; 
BEGIN 


procedure drna„transf er ( no_.bytes ) ; 


procedure dma_transfer 


( 


This procedure executes a hold to simulate a dma transfer . 
It used the number of bytes passed to it to determine the 
actual lenght of the hold. 


Globa Is s dma_xf er_rate 


integer no_ bytes ; 
begin 

hold (no_ bytes * 8 /dma_xf er_rate ) ; 

end ; 


boolean procedure receive( recvmsg ) ; 
REF ( message ) recvmsg ; 
beg i n 

recvmsg . INTO ( msg_queue ) ; 
dma ..transfer ( recvmsg - bytes) ; 
receive TRUE; 

end ; 


begin ! RX_HOST NAIM ; 

! initialize the rx_host entity 
msgqueue new messaqe__queue ( 11 rx_host " ) ; 
host_msg z- new message; 

! passivate after creation; 
passivate; 

while TRUE do 

! loop until the simulation ends 
begin 

if ( msg_ queue « EMPTY ) then 
! no action required* do nothing 



passivate; 

end 
else 
beg i n 

! message queue not empty., begin processing ; 
state s " RECEIVING; 

! receive a message from TCP layer ; 

host_msg : - msg_queue . SUC ; 

if (host_msg =/= NONE) then 

! NONE test to avoid runtime errors ; 

begin 

! simulate processing time 
ho 1 d ( i n t e r ru p t _ t i me ) ; 

s t a te s ~ FRE”E ; 

! remove the message from the queu 
host_msg -OUT ; 

! discard the message 
hos t_msg : - NOME ; 

end ; 

end ; 
end ; 

end ; 

END++of ++rx _host ; 


( 
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TX TCP. SIM - used as include file in TCP. SIM ; 


TX„TCP - transmitter tcp 
STATES: FREE, SENDING 

Actions: Fetch message from host message queue, packetize, 

add to buffer, send the message. 

Send acknowledgmen ts, and piggybacked data/ack frames 


tcp CLASS tx_tcp; 

BEGIN 

REF ( buff e r ) a c kq ; 

REF (message_queue) host_msg_queue ; 
INTEGER rc; 

BOOLEAN ack_to_send, piggyback; 


! Flags used to determine the; 
! next action within the main; 
! loop of the tcp transmitter; 


procedure dma_transfer(no_bytes) ; 


procedure dma_transfer 5 

This procedure executes a hold to simulate a dma transfer.; 
It used the number of bytes passed to it to determine the ; 
actual lenght of the hold. 5 

■ I 

Globals: dma_xf er_rate 5 


integer no_bytes; 
begin 

hold (no_bytes * 8 /dma_xfer„rate) ; 

end ; 


procedure packetize(msg ) ; 
REF ( messag e ) msg ; 


This procedure divides the message referenced by MSG into frames. ; 
The frames are put into the tcp buffer by the netservice level ; 
procedure RECEIVE. The final frame is marked by setting the FIN bit. ; 
This procedure is called only after space within the buffer has been ; 
reserved for the entire message size. A partial message will not be ; 
packetized. 5 


begin 

REF(f rameun i t ) tcpframe; 
integer temp, msg_size; 

•i -= 1 . 


1 rnun+ak for niHnhor f 


! divide the message into frames ; 


begin 

temp := msg. bytes; 
msg_si ze s~ (nax_frame_size; 
while temp > 0 do 
begin 

tcpframe new frameunit; 

tcpframe. id := msg. id; 

tcpframe . bytes : = msg_size; 

tcpframe . dest_add r : = msg .dest_addr ; 

tcpframe . source__add r msg .sour ce_addr; 

tcpf rame . type s= DATA; 

tcpframe .seqnum s — msg_size # i; 

tcpf rame. msgptr s- msg; 

if tcpframe . seqnum msg . by tes then 

^ p ! last fr ame 1 n 


copy info from message to frame; 


the message 


tcpf rame. fin := True; 
tcpf rame . bytes :=temp; 
tcpf rame. seqnum := msg. bytes; 
if ( tcpf rame . bytes < 65) then 
begin ! minimum 


! set the Finished bit 


frame size is 65 bytes: 


arlin«i+ hvfes S: secinum 


tcpf rame . bytes := 65; 

tcpf rame. seqnum : = msg. bytes + (65 - temp); 

end; 

buf . msg tai 1 s —tcpf rame ; ! set pointer to end of message ; 

end ; 

temp : = temp - msg_size; ! calculate bytes left in message; 

return code : = receive ( tcpf rame) ; ! call routine to put frame; 

! into transmittor buffer ; 
i s~ i + 1; ! increment frame counter ;; 

end ; 

end ; 

end — of — packetize; 


procedure ack_message(ackf rame) ; 
REF ( f rameun i t ) ackframe; 


ack_message ( ackframe ) 

processes the receipt of an acknowledgement 

- updates the window 

- removes frames from buffer when last frame acknowledged 

- sets done time of message 
assumptions: 

- one message in the buffer at a given time 


begin 

REF(f rameunit) tempframe; 
REF (message) msgptr; 

if win. state <> EMPTY then 

begin 

tempframe win. front; 


while tempf rame=/ : =NOHE 

and tempframe . des t_add r=ackf rame . sour ce_add r 
and tempf rame. seqnum<=ackf rame. acknum do 


! if the window is empty, any ack that ; 
! received will be ignored 5 

! starting at the front of the window, ; 
! search the frames in the window for ; 
! frames that have a seqnum less than ; 
! or equal to the acknum, remove those ; 
! frames from the window. ? 


kill_timer( tempf rame) ; ! cancel the timer -for the a eked frame; 

! adjust the window size ; 

win.cursize win.cursize - temp-frame, bytes; 

if temp-frame. fin then ! when the last frame in message ; 

begin ! remove the messacie from buffer ; 

msgptr tempf rame. msgptr; 
win. front tempf rame.SUC; 
if (outofbuft tempf rame. id ) = OK) then 

begin ! Mark the message with current time ; 

! indicating the time the message ; 

! acknowledgement was received. Call ; 

! for data collection. 
if (set_donetime(msgptr) = OK) then 
begin 

! get the data from this successful message; 

collectionq .col lect_data( msgptr) ; 


en d ; 

end ; 

if win .f ront~=NONE then 
begin 

win . reset_window; 
goto Break; 
end else begin 

win. state : = NENF; 
tempf rame win. front; 
goto Break; 

end ; 

end else begin 

win. front s— tempf rame.SUC; 
if win . f ron t ==: NONE then 
begin 

win . reset_window; 
goto Break; 

end ; 

tempf rame s- win. front; 

end ; 

end ; 

Breaks ! break out of while loop, incase pointer is NULL..; 

end ; 

end — of — ack; 


procedure copyf rame (source., dest); 
REF(f rameunit) source, dest; 


This procedure makes a copy of the frame being sent, since SIMULA ; 
will not allow a given Link class object to exist in more than one ; 
set (ie. a frame cannot be in more than one buffer at any given time).; 
To allow the frame to stay in the transmi ttor 's buffer until it is ; 
acknowledged , a copy of the frame must be sent. 5 


begin 

dest. id := source. id; 
dest. bytes ; = source. bytes; 
dest.dest_addr := source. dest_addr; 
dest. sour ce_addr source. source_addr; 

dest. type ;= source. type; 
dest.seqnum := source. seqnum; 
dest.acknum s= source.acknum; 


dest.fin := source. fin 5 
dest.msgptr s- source. msgptr; 

end ; 

boolean procedure transmit (frame) ; 

REF(f rameuni t ) frame; 

! This procedure copies the frame to be sent and calls the IF RECEIVE 
! procedure. If IP receives the frame, activate the IP entity. 

I 

! Returns: TRUE - frame received by IP 

! FALSE -- frame not received by IP 


beg in 

REF (f rameuni t) sendframe; 

sendframe new frameunit; ! create new frame_unit template to send; 
copyf raffle ( frame , sendframe); ! copy info from old frame to new copy ; 
if ( stx_.,ip( id ) . receive(sendf rame) ) then 
begin 

transmit : = TRUE; ! frame received by IP, its on its way ; 

activate stx„ip(id); ! IP has something to do, so wake it up; 

end else begin 

transmit : = FALSE; ! the frame couldn't be sent yet 5 

end ; 

end — of — transmit; 


REF( timeout _unit) procedure f ind„timeout ; 


This procedure searches the timeout queue to find the frame that 
timed out, ie) the frame in which the FRAME_TiriED_OUT flag is set. 

Returns: reference to the first timeout_unit found which meets the 
condition FRAME_.TIMED_OUT, otherwise NONE. 


begin 

REF ( timeout _unit) current, next; 
boolean found ; 

find_timeout NONE; 

found := FALSE; ! flag to indicate if timeout was found ; 

current :~ timeoutq .FIRST; ! start at the beginning of the timeoutq; 
while (not found) do 
begin 

if (current —/— NONE) then ! search until end of queue ; 

begin 

if ( current .status = FRANE__TIMED__OUT) then 
begin ! found a timed out frame 

find„timeout s- current; 
found := TRUE; 

t imeout__coun t := timeout_count — 1 ; 
end else begin ! didn 't find one, get the next timeout , 

current current.SUC; 


end ; 

end else begin ! have searched the entire queue 

found s« TRUE; ! break out of the loop 

timed_out := FALSE; 

timeout_coun t := timeout_count - 1 ; 

end ; 

end ; 

if ( timeout_count = 0) then timed_out s= FALSE; 

end ; 


procedure update_buffer; 


! This procedure updates the necessary buffer pointers after a frame 
! is transmitted. 



begin 

lastsent s~ frame 3 

buf. current ( buf. current) .SUC; 

end — update__buffer 3 



boolean procedure receive_ack( ackf rame) 3 
REF ( f rameun it) ackf rame 3 

I — — — ***■ ' n 

! This procedure receives an acknowledge frame for transmission from 3 

! the TCP Receiver. Comparisons are made to determine: 3 

! - if the frame is to be piggybacked 3 

i — if an previous ACK for the same message exists and 3 

1 should be updated to reflect the current status of 3 

! the message 5 

1 - if this ACK should be added to the acknowledgement 3 

! queue 5 

I !» 

! Returns: TRUE if the acknowledgment is successfully handled 3 

! FALSE if there is an error in the processing 3 


begin 

REF(f rameunit) tern pf rame 3 

boolean set_piggybackji ! flag to indicate if piggyback 3 

! option was used fi 

set_ piggyback := FALSE 3 ! initialize flag to indicate not used 3 

if (lastsent =/= HONE) then ! NONE test to avoid runtime error 3 

begin 

tempframe s — lastsent. SUC3 ! get the next packet to be sent 3 

end else begin 

tempframe NONE 3 

end 3 

! check first packet for matching destination 3 

! address - if match found then piggyback the ack 3 


if (tempframe -/- NONE) then 
begin 

if tempframe . dest_add r — ackf rame. dest_addr then 
begin 

piggyback := TRUE; ! set flag to show ack piggybacked ; 

set_piggyback :* TRUE; 

tempframe. ack := TRUE; ! mark frame with acknowledgement info; 
tempframe . acknum := ackf rame. acknum; 

end 3 

end ; 

if (not set_piggyback) then ! if ack not already piggybacked 3 

begin 

if (ackq. EMPTY) then 

beg :i. n ! no ack exist in the ACKQ 3 

ackf rame . INTO ( ackq ) ; ! put the new ack into the ack queue 3 

end else begin ! otherwise check the acks in the ; 

! queue to see if updating an 3 

! existing ack is appropriate 3 

tempframe ackq. SUC; ! get the first entry in the ACKQ ; 

while (tempframe =/= NONE) and (ackframe=/= NONE) do 
beg in 

if ( tempframe. id=ackf rame. id ) and 

( tempf rame. acknum < ackf rame. acknum) then 



tempframe » acknurn 5 55 ackf rame-acknum; 

ackframe a- NONE; ! ack frames combined, discard 

! ack not used 

end else begin ! match not found, look at next ack 

tempframe a— tempf rame-SUC; 

end ; 

end ; 

if ( ackf rame=/— NONE ) then ! no matching ACK found in ACKR 

beg in 

ackf rame. INTO (ackq) ; ! put ack into the ack queue 

en d ; 

end ; 

end ; 

ack__to_send : = TRUE; 
receive__ack :- TRUE; 
end — of — receive_ack; 


procedure transmi t_f ai led ( f r amep tr ) ; 

REF(f rameunit) frameptr; 

! This procedure removes the entire message from the buffer and window 
! when transmission at the csmacd layer has failed. 

■ 

! Assumptions: 

! — only one message in the tranmission window at any given time 


begin 

(frameptr. msgptr) .rejected := TRUE; ! mark the message as rejected 

i this info will be used later 
! in the network statistics* 

return_code : = outofbuf (frameptr . id ) ; 
win . reset_window; 

end ; 


REF ( timeout_uni t) procedure create_timeout_ref ( timeout_f rame) ; 

REF(f rameunit ) timeout_f rame ; 

I — — — — — ~ ? 

! This procedure creates a timeout_unit for placement into the timeout ; 
! queue. It initializes the parameters of the timeout_uni t. ; 

i 3 

! Returns: Reference to a new timeout_f rame 5 

i 3 

! NOTE: TCP actually calculates the time_up value using a weighted ; 

! average of the actual times to send and receive an ACK. ; 

! This feature has not been implemented in this version. ■> 


begin 

REF ( timeout_un it) timeout; 

timeout new timeout unit; ! create a new timeout template ; 

! initialize all of the variables ; 
timeout. layer stx_tcp(id); ! set reference to the entity ; 

timeout . frameptr :— timeout_f rame; ! set reference to specific frame ; 
timeout . time„up := 28000.0; 
create_timeout_ref :- timeout; 

end ; 


procedure ki 1 l_timer ( timeout_f rame ) ; 

REF(f rameunit) timeout_f rame; 

I — — — 

This procedure searches the timeout queue for the reference to the 
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timeout q. If it is not found no action occurs. The search ends 5 
with the first match found. There is only one timeout..f rame for any ; 
frame transmitted, including any re-sends of the same frame 5 
'for whatever reason, 5 


begin 

REF( timeout _unit) current; ! pointer to current position in queue; 

current timeoutq . FIRST ; ! start at the front of the timeoutq ; 

while ( current-/~NONE) do i search until end of timeoutq found ; 

begin 

if ( current .f rameptr==timeout_f rame) then 

begin ! found timeout__uni t for ref frame ; 

cancel ( current. timer ptr) ; ! cancel the timeout process ; 

! using the REF in the timeout._unit ; 

cur rent. OUT; ! remove timeout_unit from queue ; 

goto Break; ! exit the loop ? 

en d ; 

current s — current.SUC; ! frame match not found, get next unit; 

end ; 

Break: 
end ; 


procedure start_timer ( timeout ) ; 
REF( timeout_unit) timeout; 


This procedure creates a new process TCP_TIMER to be an independent 
process for the tracking of a timeout. If a timeout occurs the 
independent process will set the necessary flags using the REF's 
that are contained in the timeout__uni t. No references to the 
TCP_TIMER process exist, so that it will be discarded for garbage 
collection after it performs its given timeout function. 


begin 

REF (tcp_ timer) new_tcp_timer ; 

new__tcp_timer new tcp_timer; ! create a new timer process ; 

timeout . timerptr new_tcp_timer ; 

new_tcp._ timer . setup ( timeout ) ; ! initialize the timer process ; 

timeout 7lNT0( timeoutq) ; ! put in q (keep a reference to it) ; 

activate new_tcp_timer ; ! start the timer 5 

end ; 


begin ! main program portion of tx_tcp; 

REF(f rameunit) ackframe; ! reference to ack frame used in MAIN; 


REF (message) msg ; ! 

REF( timeout_unit) timeoutptr; ! 

boolean xmit_f ailed; ! 

xmit_f ailed := FALSE; 
ackq new buffer; 
msg new message; 

buf.cursize := 0; ! 

buf.maxsize s- 20480; ! 

buf_space := buf.maxsize; 
msg none; 

lastsent none; 

piggyback := FALSE; ! 

ack to send := FALSE; 


reference to a message used in MAIN; 
reference to a timeout used in MAIN; 
parameter used to determine the ; 

status of attempted transmission ; 

if TRUE, the layer passivates ; 

waiting for a state change in an ; 
adjacent layer to retry. ; 


Initialize the parameters 

set tcp buffer size for station 


initialize loop flags 



passivate; 


First Priority - send piggyback ack 
! Reset piggyback "flag 

! HONE test to avoid runtime error 


! assign the host message queue to local pointer; 
host_msg_queue s- stx_host ( id ) ,msg__queue; 

while TRUE do ! DO FOREVER LOOP 

begin 

while ( host_msg_queue. EMPTY OR buf. state - FULL) 

and not ( ack_to_send OR timed__out OR next_msg ) do 
begin ! Nothing to do passivate 

passivate; 
end ; 

i-f ( ack_to__send OR timed_out OR next_msg ) then 

begin ” ! perform activity associated with 

! flags in priority order 

state := SENDING; 
if (ack_to__send ) then 
begin 

if (piggyback) then 
begin 

piggyback := FALSE; ! 

frame buf. current; 
if (frame -/- NONE) then 
begin 

if ( win . reserve_space ( frame? . bytes ) ) then 
begin 

if ( transmit(f rame) ) then 

begin ! Frame transmitted, update win &. buf ; 

if (win „addto(f rame) ) then 

( begin ! Create timeout timer and start it ; 

timeoutptr s- create_timeout_ref (frame) ; 
start_timer( timeoutptr) ; 
u pd a t e_ buf f e r ; 

end else begin ! set flag to passivate at end of loop 
xmit__f ailed := TRUE; 
end — add to ; 
end else begin 

xmi t„f ailed := TRUE; 
end — transmit; 
end else begin 

xmit_failed := TRUE; 
end — reserve; 
end ; 

end else begin 

ackframe s — ackq.FIRST; ! assign a reference to first ack; 

if (ackframe ~/~ NONE) then ! NONE test to aviod runtime error; 
beg i n 

if ( transmit(ackf rame) ) then ! send the acknowledgement ; 
begin 

ackf rame. OUT; ! remove the ack from the queue 

! if no more to send set flag 
! ack_to_send to FALSE 
if (ackq. EMPTY) then ack„to_send := FALSE; 
end else begin 

, xmi t_f ailed := TRUE; ! Transmit returned FALSE, set the; 

V • ' ! the xmi t_f ailed flag so that the; 

! transmitter will passivate at ; 

! end of this loop. It will be ; 

! activated by IP or HOST when ; 

! either one's state changes. ; 

end ; 
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i-f (ackq.EMF'TY) then ! 
begin ' 

ack_to,_send := FALSE ; 

end ; 

end ; 


verify there are no acks in queue; 
reset the ack_to_send flag ; 


end ; 

end else begin ! ack_to_send is FALSE, check 

if (timed_out) then 
begin 

timeoutptr s- f ind._timeout ; ! find the timed out 

if (timeoutptr =/= NONE) then 

begin ! timeout unit found, resend 

if ( transmit ( timeoutptr. frameptr) ) then 


other flags ; 

unit from q ; 
by the frameptr; 


beg i n 

timeoutptr. status := SET; Istart a new timer for frame; 
start_timer< timeoutptr) ; 
timeout., count s= timeout., count - 1; 
end else begin 

x mi t__f ailed := TRUE; ! set flag to cause passivate ; 

end ; 

end else begin 

timed out ! = FALSE; ! No timeout found, reset the flag , 

end ; 

end else begin 

if (next_msg) then 
begin 

•frame s - buf .current; 
if (frame =/= NONE) then 
begin 

if ( win. reserve_space( frame. bytes)) then 

begin ! reserve space in the xmit window ; 

if ( transmit (frame) ) then 

begin ! transmit the frame to IF' ! 

if (win .addto(f rame) ) then 

begin ! officially add the frame to the win; 

! create/start the timer ? 

! update the buffer pointers ; 

timeoutptr create_timeout_ref (frame) ; 

start_timer( timeoutptr ) ; 
update., buffer 5 

if last sent ™buf .msgtail then 

begin ! send only one message at a time ; 

next__msg := FALSE; 

end ; 

end else begin 

xmit_failed := TRUE; 

win . can cel_reserve_space (frame . bytes ) ; 

end ; 

end else begin 

xmit_failed := TRUE; 

win . cancel_reserve_space( frame . bytes ) ; 

end ; 

end else begin 

xmit_failed := TRUE; 

end ; 

end else begin 

next„msg := FALSE; 

end ; 


end ; 
end ; 


end 


i-f ( xmit_f ailed ) then 


begin 

xmi t_fai led := FALSE; 
passivate ; 


! Xmit__failed flag indicates that some ; 

! condition exists to attempt a transmit;, and ; 
! that the attempt failed. The transmitter ; 
! will passivate, waiting for a change in ; 

> the conditions, so that the next transmit 
! might succeed. The loop will be executed ; 
! from the beginning after TX_TCF' is activated; 
! so that whatever is highest priority will be; 
! done first. 5 


end ; 

end else begin 

if (not host_msg_.queue . EMF'TY ) and (not buf .state=FULL) then 
begin 

state := Fv'ECEIVING; 

msg host„_msg„_queue.SUC; 

! add message to tcp buffer only if 
! there is room for the entire message 
! buf_space indicates space remaining 
if ( reserve._buffer„space( msg . bytes) ) then 
begin 

msg. Out; ! Message is taken out of host queue and 

! added to the data collection queue. 


msg . INTO ( coll ectionq ) ; 

dma_transfer (msg .bytes) ; ! Hold for dma xfer of data bytes; 

( packetize(msg ) ; ! Prepare the msg for sending, add to buffer ; 

! as individual frames to be transmitted. ; 

end ; 

state s= FREE; 

end ; 

end; 

hold( interrupt_time) ; ! Hold for tcp processing time, needs refinement; 

end — of — while ; 

end — of — main ; 

END++of ++TCF' ; 


/ . 
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! SANTA CLARA UNIVERSITY 

DEVELOPED FOR NASA/AMES 
NCC2-554 

PERFORMANCE ANALYSIS OF LAN ; 

! RX TCP. SIM - used as include file in TCP. SIM ; 


RX_TCP - receiver tcp 
STATES: FREE, RECEIVING 

Actions: receive message from ip, update the buffer, 

send ACK in response to data message, update parameters in 
response to CTRL, pass complete message up to host 
NOTE: For this simulation it is assumed that there is room in the 

receiver BUFFER for any arriving frame. The WINDOW size will 
be checked for availability. 


tcp CLASS rx_tcp; 

BEGIN 

REF ( message ) msg ; 

pr-ir ( f rameun it) summaryptr, temp; 
1 EGER buf_rc; 


procedure dma_transfer(no_bytes) ; 


procedure dma_transfer 5 

This procedure executes a hold to simulate a dma transfer.; 

It used the number of bytes passed to it to determine the ; 
actual lenght of the hold. 5 

Globals: dma_xfer_rate 5 


integer no_bytes; 
begin 

hold (no_bytes * 8 /dma_xf er_rate) ; 

end ; 

integer procedure rx_receive( recvf rame) ; 
REF ( f rameun it) recvf rame; 


This procedure receives a frame at the tcp level. It updates 
window and buffer sizes to reflect the size of the frame 
received . 


begin 

boolean win_rc; 

win_rc := FALSE; 
return„code := FAILED; 

if (win .maxsize < (win.cursize + recvf rame. bytes) ) then 
begin ! set win. maxsize so never fails for WINDOW too small; 

win. maxsize :« win.cursize + recvf rame. bytes; 
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if ( win . reserve_space( recvframe. bytes) ) then 

begin ! reserve space in the window 'for the frame 3 

if (buf.maxsize < (buf .cursize + recvf rame. bytes) ) then 
begin ! set buf.maxsize so never fails for BUFFER too small; 

buf.maxsize buf. cursize + recvf rame. bytes +1; 

end ; 

win_rc := win .add to( recvf rame) ; 
buf_rc s= receive ( recvf rame) ; 
end else begin 

win - cancel_reserve_space( recvf rame. bytes) ; 

end ; 

if (win_rc ) and (buf_rc = OK) then 
begin 

return_code s== OK; 

end ; 

if (buf. current HONE) then 
beg in 

buf. current s- recvframe; 

end ; 

rx_receive ;= return_code; 
end — of — rx-receive; 

procedure ctrl_message; 
begin 

I - — T |5 

! This procedure can be used as a starting point to implement the ; 

! control messages of TCP. 5 


end — of — ctrl ; 

procedure reassemble_message ; 

I 5 

! This procedure creates a new message and copies all of the ; 

! information from the summary frame to the message preparing to ; 
! pass the message up to the host. S 


begin 

msg s— new message; ! create a new message and copy info ; 

msg.id : = summaryptr . id ; ! from the summary frame ; 

msg . dest_add r := summaryptr . dest_addr ; 
msg .source_addr := summaryptr .sour ce_addr ; 
msg . bytes s= summaryptr.bytes; 
end — of — reassemble_message ; 


ref ( f rameun i t ) procedure get_summary_f rame; 


This procedure returns a frame pointer to the first frame ; 
found with the same message id number (id). Since the ; 
buffer is FIFO, the first frame reference will be the ; 
considered the summary frame and will be updated with the ; 
receipt of additional frames of the same message to reflect ; 
the status of the message. Non-con tiguous frame will ; 
exist as separate units within the buffer . S 


V; begin 

REF(f rameun i t ) bufptr; 
bufptr s- buf. FIRST; 
while (bufptr =/= NONE) do 
begin 

if (f rame. id~buf ptr . id ) then 


! start at the beginning of buf; 
! search to end of the buffer ; 

! matching frame found, assign ; 



get_summary_f rame bufptr; 
go to Break; 
end else begin 

bufptr but ptr .. SUC ; ! no match-check next buf entry?; 

end ; 

end ; 

Breaks 

en d — ge t __summa ryjfr ame ; 


in teger procedure last^con tiguous_byte ; 

i _ — — * — ■"* " 5 

! This procedure will search through the buffer updating the summary ; 
! frame until no more updates are possible. The buffer pointers are ; 
! updated and combined frames are removed from the buffer. ? 

i 5 

! Returns: * 

i Integer value of the highest contiguous byte received ; 


begin 

integer last_byte; 
boolean updated; 

REF ( f rameun it) bufptr, tempptr; 


last_byte := 0; ! set last_byte in case first frame not received ; 

updated TRUE; 
while (updated) do 

begin ! search the list again after each update, until no more updates 
bufptr s— summaryptr .SUC ; ! start search after the summary frame 

updated := FALSE; 

s/sr NONE) do ! search until the end of the buffer 


while (bufptr 
beg in 

if (summaryptr . id-bufptr 
beg in 

if (summaryptr 
begin 


id) then 

. the frames have the same id number 
/= bufptr) then 

1 the pointers point to different frame 


if ( buf ptr.seqnum= (summaryptr . bytes+ buf ptr. bytes) ) then 
begin ! contiguous frame found, combine them 

summaryptr .seqnum := buf ptr.seqnum; 

summaryptr . bytes s— summaryptr . bytes+buf ptr . bytes : 
last_byte : — summaryptr . bytes; 
summaryptr . fin bufptr. fin; 

updated := TRUE; 

end ; 
end ; 
end ; 

if (updated) then 

begin ! update the buffer pointers and remove the frame 

! that was just combined with the summary frame 


tempptr bufptr; 

bufptr s- buf ptr. SUC; 

if ( tempptr==buf. current ) then 

begin 

buf .cur ren t : - ( buf . cur ren t ) . F*RE V ; 


end ; 

tempptr .OUT ; 
tempptr:— NONE; 
end else begin 

bufptr buf ptr. SUC; 

end ; 

end — while; 
end- — while; 
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begin 

last_byte : = summaryptr . bytes; 

end ; 

last__con tiguous__byte := last_.byte; 
end — of — last-contiguous-byte; 

procedure acknowledge(af rame) ; 

REF ( f rameun i t ) aframe; 


This procedure creates an acknowlegemen t for the last contiguous 
byte of the same message as the frame received. The ACK is put 
into the acknowledgement queue of the transmitter. 


beg in 

ref (frameunit) ackframe; 

ack.frame s— new frameunit; ! create new frame for the ack 5 

ackf rame.dest_.addr := aframe. sour ce,_addr; ! initialize the frame ; 
ackf rame. sour ce__addr := af rame.dest_addr ; 
ackframe. id := aframe. id; 
a c kf rame.ack : = TRUE ; 
ackf rame. type := ACK; 

ackf rame. bytes := 65; ! set ack bytes to minimum packet size ; 

ackf rame. acknum last_con tiguous_byte; ! find the byte to ack ; 

ackf rame . setwindow := buf.maxsize ~ buf.cursize; 

if not ( stx_tcp( id) . receive_ack(ackf rame) ) then 

begin 

end ; 

activate stx_tcp(id); 
en d — of — a c kn o w 1 ed g e ; 


!******** RX_TCP MAIN **************************** ; 

begin 

buf.cursize := 0; 

buf.maxsize := 10240; ! set tcp buffer size for station; 

! info set up in a file?; 

passivate; 

while TRUE do 
begin 

if buf .current —/ — NONE then ! frame to receive in buffer , start ; 
begin ! the receive process ; 

state * — RECEIVING; 
frame :- buf. current; 

! control not implemented — 12/88 
if frame. type ~ CTRL then ctrl_message; 

! pass ack info to tx_tcp for updates 
if frame. ack then stx__tcp( id ) -ack_message( frame ) ; 

! receive data information 
if frame. type = DATA then 
begin 

! Find the summary frame for message „ 

! should return a pointer to the 1st 
! frame found for the same message. 

! Either a previously received frame 
! or the current frame if no previous 
! frame exists should be returned, 
summaryptr s- get_summary__f rame; 
if ( summa r y p t r ==N0NE ) then ! debug message 
begin 


acknowledge( frame) ; 

end ; 

! remove f rame "from receiver window ; 
return_code := win . rxtcp_outof( frame ) ; 

if ( buf . cur rent®/® NONE) then 

buf. current s- ( buf . current) .SUC; 

if (summaryptr ®/« NONE) then 
begin 

if (summaryptr.f in) and 

(summaryptr . by tes=summaryptr . seqnum) then 

begin 

! last frame, message complete ; 

reassemble_message ; 


! send message to the host ; 

while not ( srx_host ( id ) . receive(msg ) ) do 

begin 

if ( srx_host(id) .idle ) then 
activate srx„host( id ) ; 
passivate ; 

end ; 

dma_transfer(msg . bytes) ; 
activate srx_host ( id ) ; 

! remove frames from buffer ; 
re turn _ code s® outof buf (summaryptr . id ) ; 
end ; 
end ; 

end 

else 

begin 

! update buffer for CTRL or ACK frames ; 

return_code := win . rxtcp_outof (frame ) ; 
temp s- frame; 

if ( buf . curren t®/®NONE) then 

buf. current s- ( buf . current ) .SUC ; 

if ( temp®/— NONE) then 
begin 

buf _space s = buf_space + temp. bytes; 
temp. OUT ; 
temp NONE; 

end ; 

end ; 

end 

else 

begin 

! no frame to receive, passivate 5 

state s ® FREE; 
activate srx„ip(id); 
passivate; 
end — of — if; 

frame s- None; 

! simulate processing time with hold ; 

hold (interrupt^, time) ; 


end — of — main; 
END++o f ++RXTCP ; 


f 
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RX_IP - IP Receiver 
STATES: FREE, BUSY 

ACTIONS: Receives a frame pointer (REF) from its station's 
rx_csmacd layer, calls the tcp receive function 
RX RECEIVE to put the frame into rx_tcp's buffer. 


ip CLASS rx_ip; 
begin 

pdssi VAt 0 ^ ! initial startup wait state 

while TRUE do 


! if no frame then do nothing 


begin 

while frame==NONE do 
begin 

state := FREE;! 

activate srx_csmacd ( id ) ; ! give dependent layer a 5 

! chance to react to state change ; 

passivate; 

end ; 

if frame=/=NONE then ! frame received from csmacd ; 

begin 

state := BUSY; 

return__code := FAILED; ! initialize value of return„code ; 
while (return_code = FAILED) do 

begin ! loop until TCP receives the frame 

return_code := srx_tcp( id ) . rx_receive(f rame) ; 
if (return_code = OK) then 
begin 

activate srx_tcp(id); 
frame NONE; 


end ; 

if ( return_code = FAILED) then 
begin 

activate srx_tcp(id); 

end ; 

end ; 

frame NONE; ! reset the ip receiver parameters 

state := FREE; 

end ; 

hold ( in ter rupt_t ime ) ; ! simulate the processing time of IF 

end ; 

end ; 


TX_IP - IP Transmitter 
STATES: FREE, SENDING, READY 


a i- «t i/n 




/ v 


' _ 


! t x _ t c p layer, calls the csmacd receive -function ; 
! to put the -frame into tx_csmacd's bu-f-fer . ; 



i CLASS tx_ip; 
begin 

procedure reset_tx_ip; 
begin 

•frame s- HONE; 
state := FREE; 

end ; 

procedure transmi t_f ailed (-f rameptr ) ; 

REF(f rameuni t ) f rameptr; 
begin 

stx_tcp(id). transmi t_f ai led (f rameptr ) ; 

end ; 


begin 

passivate; 
while TRUE do 
begin 

while frame==NONE do ! state = FREE, no frame to send; 

begin 

passivate ; 

end ; 

! state = READY, have frame ; 

! state set in receive procedure; 


Attempt to pass frame to csmacd, if attempt fails then 
passivate... will try again when activated by csmacd or 
tcp. Will not succeed until csmacd actually receives the 
frame. 


while (not stx csmacd ( id ). receive (frame) ) do 


begin 

passivate; 

end ; 

state := SENDING; 

if stx_csmacd ( id ) . IDLE then 

begin 

activate stx_csmacd ( id ) ; 

end ; 

reset__tx_ip; 
activate stx_tcp(id); 

hold ( in terrupt_time) ; 
end — while — true — do ; 


frame passed to csmacd - reset; 
Give TCP a chance to react to ; 
IF’ state change. ; 
simulate processing time ; 


end ; 

end++TX_IF - ; 


ir. Br . 


1 
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process class tx_csmacd; 

substructure of: class protocol; 

calls: ( state routines ); 

csmacd_txs_acqui re_channel j 

csmacd_txs_attempt_tx ; 

csmacd„txs„idle ; 

csmacd__txs_wai t_for_re_tx ; 

csmacd_txs_d isabled ; 

returns: none ; 

globals used: ; 

loops on state and change_status. ; 
this indicates if a change of state has; 
occurred . ; 

actions: mimicks the transmitter of the csmacd ; 

» skJKJlole**********************^^*********^******************** 5 
! declare entities for the csmacd layer; 

csmacd class tx_csmacd; 
begin 

! attributes; 

integer n; ! num of transmission tries; 

long real tx_delay; ! transmission delay; 

long real total_delay; ! total delay; 


! state routines; 

! determine if a transition will occur; 

! return a boolean true if transition occurs; 

! files that contain the state subroutines and specific procedures; 

INCLUDE csmacd_txs.sim 
7i INCLUDE csmacd_tx .sim 


! main body; 
begin 


! initialize attributes; 
n := 0; 

! loop forever; 
while true do 
begin 



if (( not change_state ) and 

( not buffer_interrupt )) then 

begin 

passivate; 

change_state s~ true; 

end 

else 

begin 

! reset the transition; 
change_state := false; 

! identify the state; 

if ( state = DISABLED ) then 

begin 

change_state : ” 

csmacd_txs_d isabled ; 

end 


else if (state — WAIT_FOR_RE_TX ) then 
begin 

change_state := 
csmacd„txs_wait_for„re_tx ; 

! have we waited max tries; 
if ( not change_state ) then 
begin 

! reset the variables; 
reset_tx_csmacd ; 

! wake up ip; 
activate stx„ip(id); 

end ; 

end 

else if (state = FREE ) then 
begin 

change_state s= 
csmacd_txs_idle ; 

end 

else if (state = ATTEMPTJTX ) then 
begin 

change_state := 
csmacd_txs_attempt_tx ; 

end 

else if (state = ACQUIRE_CHANNEL ) then 
begin 

! get the frame to ; 

! send from the buffer; 
frame 

ge t_f rame__f rom_buf f er ; 

! if we got the frame ; 

! send it on ; 

if (frame =/- none ) then 

begin 

change_state s= 

csmacd_txs_acqui re_channel (frame ) 


ii< .•» «i ii 


*i r\ a’f + on' + tz tr -i on * 


if ( change„state ) then 
begin 

! calculate total delay; 
total_delay := 

prop_delay + tx_delay; 

! activate the csmacd_rx; 
activate srx_csmacd ( frame . dest_add r ) 


end ; 
end ; 

! reset the flag; 
reset_tx_csmacd ; 

! wake up ip layer; 
activate stx_ip(id); 


end 

else 
beg i n 

outtext ( " ERROR IN IDENTIFYING C„TX__STATE" ) ; 
outin ttstate, 5) ; 
out image; 
end ; 
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! procedure csmacd_txs_disabled ; 

* !* 

! called by; process class tx_csmacd; 

f * 

‘ !* 

! calls; csmacd__tx_end_ j am ; 

• 5 

i returns; true ; ! transition always occurs; 

I II 

• 3 

! globals used: none ; 

• 5 

! actions; holds for a jam period; 

! then calls end jam for a change of state; 

1 w 

boolean procedure csmacd_txs„disabled ; 
begin 

boolean return__code; ! true if transition occurs; 

long real jam_time; ■ amount of time for jam; 

return__code := true; 

! assign delay time and hold for it; 
jam__time := 2 * tau; 
hold ( jam_t.ime); 

! call end jam for transition state; 
csmacd __ t x _en d _ j am ; 

! always return true ,since there's always a transition; 
csmacd_txs_d isabled : = return_code; 

end ; 

! ********************************************************** ; 

• 5 

• 5 

! procedure csmacd_txs_wai t_*for_re_tx ; 

■ 5 

! called by: process class tx_csmacd; 

> 5 

! calls: csmacd_tx_end_of _delay ; 

I m 

w !* 

! returns: true if n <= 16, false otherwise; 

V- : globals used: checks the value of n declared in tx_csmacd ; 

I m 

• J 

! actions: if n <» 16, calls csmacd_tx_end_of_delay; 

! ; 

! ********************************************************** ; 
boolean procedure csmacd_txs__wai t_f or_re_tx ; 



boolean return_code; 

Integer fnax_tri.es; ! <nax number of attempted tx; 

max_tri.es :=» 16; 

! call the transition if n <= max_tries; 

if ( n <- max_tries ) then 

begin 

return_cocle : = csmacd_tx_end„of_delay; 

end 

else 

begin 

! return frame pointer to ip; 
frame get_f rame_f rom„buf f er ; 

stx_i p ( id ) . transmit„failed (frame) ; 

return_code s a false; 

end ; 

csmacd_txs_wai t_f or_re_tx s= return_code; 

end ; 

! fc^fcfcJlnMnKJMc*********************************************** ; 

• 5 
■ !» 

! procedure csmacd_txs_idle;; 

I called by: process class tx_csmacd; 

• 5 

! calls: csmacd_tx_attempt_send ; 

! returns: true if transition occurs., false otherwise; 

1 « 

• J» 

! globals used: ; 

! buf. state; 

• 5 

! actions: represents the idle state; 

I m 

> **3*C*5|CJ|£5K5|C*5|t5lC*5K******5|C**5|C*5|C*J*C>tt*5*:)K***>|e**5|C***>|C***3|ti|C*3»e****HC**** ; 

boolean procedure csmacd_txs_idle; 
begin 

boolean return_code; 

! initialize return code; 
return_code := false; 

! is there a possible transition; 

! if the buffer is full_tx; 

! attempt to send; 

! is there something in the buffer to send; 
if ( buf. state » FULL) then 
u ..... begin 

return_code := csmacd_tx_attempt_send ; 

end ; 

csmacd_txs_idle := return_code; 


end ; 


! *********************************^^ ; 


! ; 

procedure csmacd_txs_attempt_tx ; 

i m 

- J 

! called by: process class tx_csmacd; 

• 5 

! calls: csmacd_tx_end_of _coll ision„window; 

! csmacd„tx_col 1 ision ; 

• I* 

! returns: true if transition occurs;, false otherwise; 

1 M 

• !* 

! globals used: tau ; 

* I* 

! actions: represents attempting to tramsmit state; 

! checks the channel variable to see if collision; 

! has occurred between attempt_to_send and now; 

! if not, holds for two tau total before checking; 

! to see if collision has occurred. This is the ; 

! collision window time; 

! ********************************************************** ; 

boolean procedure csmacd.„txs__attempt_tx ; 

begin 

boolean return__code ; 
return_code :~ true; 


( 


! can we proceed; 

! hold before checking state variable; 
hold ( tau) ; 


if ( schannel__csmacd . csmacd_channel_state = 0 ) then 
begin 

! increment the access variable; 
schannel„c5macd . csmacd__channel_state s= 

schannel_csmacd . csmacd_channel_state + 1; 


! hold for the collision window; 
hold ( tau ) ; 


end 

else 

begin 


! did we collide with another carrier; 

if ( schannel_csmacd . csmacd_channel_state > 1 ) then 

begin 

csmacd_tx_collision ; 

end 

else 

begin 

csmacd_tx_end_of_collision_window; 

end ; 


! increment the access variable; 
schannel_csmacd . csmacd_channel_state := 

schannel_csmacd . csmacd_channel_state + 1; 


hold ( tau) ; 

csmacd_tx_collision ; 

end ; 


csma cd_ t x s_a 1 1 em p t__ t x : = return_code; 

end ; 


procedure csmacd__txs__acqui re_channel ; 

m 

called by: process class tx„csmacd; 

calls : cs(nacd_tx„end_o'f_tx_ine5sage ; 

» 

11 returns: true if transition occurs, false otherwise; 

globals used: ; 

tau ; 

5 • 

actions: represents the tramsmit state; 

calculates the tx_delay and the transmi t„time; 

**********************************************************> 
boolean procedure csmacd__txs_acquire_channel (sending_f rame ) ; 
ref< frameunit) sending_f rame; ! frame to be sent; 
begin 

long real transmi t_time; 
long real transmigrate; 
boolean return_c:ode; 

( return_code := false; 

! calculate transmit time; 

tx_delay := sending_f rame. bytes * 8 / data_rate; 

transmi t_time :=tx_delay — 2 >K tau; 
if ( transmi t__ time < 0 ) then 
transmi t_time := 0.0; 
hold ( transmi t_time) ; 

! is this the end of the transmission message; 

return_code : — csmacd_tx__end_of_tx_message(sending_f rame) ; 
csmacd_txs_acqui re_channel := return_code; 

end ; 


I 
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procedure csmacd_tx_end_ j am; 
called by: csmacd_txs_disabled ; 


calls: none; 

returns: none ; 

globals used: ; 

state := WAIT_FOR_RE„TX; 

schannel__csmacd . csmacd__channel_state: = ; 

schannel__csmacd . csmacd_channel_state~ 1 ; 

actions: ends the _iam; 

transitions the transmitter to wait for re-tx.; 
changes channel state to free by decrementing states; 
checks channel_queue with last transmitter in jam; 


l ^******************************************************** ; 


procedure 

begin 

i 


csma cd _ t x _en d _ j am ; 

from disabled state; 
owns the transition from 
for re-transmission ; 

(jam over ) ; 


disabled 


to wait; 


! reset state variables; 

! transmitter waits for re_tx; 


state := WAIT_FOR_RE_TX ; 


! decrement the channel; 

schannel„csmacd . csmacd_channel_state:= 

schannel_csmacd . csmacd_channel_state - 1; 

! was this the last transmitter in the jam? ; 

if ( schannel_csmacd . csmacd_channel_state = 0 ) then 

begin 

! check to wake up channel queue; 
csmacd_tx_check_channel__queue; 


end ; 

end ; 

ivv; 

! ********************************************************** ; 

! ; 

! ; 

! procedure csmacd_tx_end_of _delay; 



calls: none; 


returns: ; 

;; true if number o"f tries is less than sixteen; 

! false if max number of tries attempted; 

I . 

» «l 

! globals used: ; 

! n number of transmission attempts; 

■ > 

• !» 

! actions: transitions to the idle state; 

t - 

! ********************************************************** 5 

boolean procedure csmacd_tx_end_of _delay ; 

begin 

boolean return_code; 
long real wait_time; 
integer wait_max; 

! initialize variables; 
return_code := true; 
n := n + 1 ; 

! get a wait max value based on n; 

if ( n > 10 ) then 

begin 

f wait_max := 1023; 

end 
else 
begin 

wait_max := ( 2 ** n - 1) — 1; 

end ; 

! get the wait time; 

wait_time := randint (0,wait_max,u ); 

hold( wait_time * tau ); 

! reset state variable; 
state := FREE; 

! check to see if we're over 16 attempts; 

if( n > 16 ) then 

begin 

return_code := false; 

end ; 

csmacd_tx„end__of_delay := return_code; 

end ; 

! ********************************************************** ; 


procedure csmacd_tx_attempt_send ; 
called by: csmacd_txs_idle ; 


! calls: none; 

■ . 

1 returns: ; 

always true; 

I * 

♦ !< 

! globals used: ; 

• state :» ATTEMPTJTX; 

! schannel__csmacd . csmacd„channel__state: = ; 

! schannel_csmacd . csmacd_channel__state + 1; 

• channel __queue; 

• 5 

i actions: try to gain control of the channel ; 

! transitions the transmitter from idle to attempt_tx 

! if not possible, goes into channel queue; 

boolean procedure csmacd_tx._attempt_send ; 
begin 

boolean return_code; 

! from idle state; 

! owns the transition from idle* to ; 

! attemptimg to send; 

! initialize variables; 
return_code := true; 

! is the channel free; 

( ! reset state variables; 

! can we get the channel; 

if ( schannel__csmacd . csmacd_channel_state = FREE ) then 
begin 

! we can get the channel; 
state := ATTEMPT_TX; 

end 

else 

begin 

! wait for the channel; 

! no change of state, passivate in queue; 
wait ( schannel_csmacd . channel _queue) ; 

end ; 


! assign return value; 

csmacd_tx_attempt_send := return_code; 

end ; 


; 

m 

■I 

procedure csmacd_ t x_end_of _col 1 ision_window; 
called by: csmacd_txs_attempt_tx ; 

■ 

Ji 

calls: none; 


returns: none ; 


I 


state : = ACGU I RE._CH ANNEL ; 


i . 

• •» 

' actions: ends the collision window; 

transitions the transmitter to end of collision window; 
! owns the transition from attempting to ; 

! transmit to acquiring channel; 

! ********************************************************** ; 

procedure csmacd._tx__end_of _col 1 ision_window; 

begin 

! from attemptimg to transmit state; 

! reset state variables; 
state : = ACQUIRE_CHANNEL ; 

end ; 




; procedure csmacd__tx_col 1 ision ; 

* 5 

! called by: csmacd_txs_attempt_tx ; 

■ !• 

! calls: none; 

I m 

m J5L' 

f returns: none ; 

i'» 

* !* 

! globals used: ; 

! state s= DISABLED; 

! ; 

! actions: ends the _iam; 

! owns the transition from attempting to ; 

! transmit to global collision; 

! transitions the transmitter to disabled.; 

• ********************************************************** 5 

procedure csmacd_tx_col 1 ision ; 

begin 

! from attemptimg to transmit state; 

! reset state variables; 
state := DISABLED; 

end ; 


**********************************************************’, 


procedure csmacd_tx_end._of _Tx_f rame; 
called by: csmacd_txs_acquire_channel ; 

m 

5 

calls: none; 

5 

returns: true if frame received ..false otherwise ; 

■ 

•I 


globals used: ; 


I schannel_csmacd. csmacd_channel_s tate - 1; 

I m 
- J 

1 actions; ends of transmission; 

calls the rx„_csmacd receive routine ; 

! decrements the channel state variable; 

! checks the channel queue for entities waiting ; 

! for the queue; 

! ***W ****%*%********************************************** ; 
boolean procedure csmacd__tx_end__of__tx,_message(sending_f rame) ; 
ref( frameunit) send ing_f rame ; 
beg in 

boolean return_code; 
return_code ;= true; 

! from transmitting state; 

! owns the transition from transmitting to ; 

! idle; 

! change the receiver message pointer; 

re turn __ code := srx_csmacd (send ing__f rame.dest_addr ) . recei ve ( frame ) 

i decrement the channel variables; 
schannel_csmacd . csrnacd_channel_state:~ 

schannel_csmacd . csmacd_channel_state - 1; 

! do we have anybody in the channel queue; 
csmacd_tx_check_channel_queue; 

r 

! set the return code; 

csmacd_tx_end_of_tx_message ;= return_code; 

end ; 

• ********************************************************** ; 


! procedure csmacd_tx_check_channel_queue; 

I «• 

* 9 

! called by; csmacd__tx_end_of_tx_message ; 

I m 

* 9 

! calls: none; 

* !* 

! returns: none ; 

• 5 

! globals used: ; 

! schannel_csmacd * channel_queue ; 

I if 

• 9 

! actions: checks the channel queue to see if anybody ; 

! waiting; 

! takes any transmitters waiting out of the ; 

• queue and activates them; 

• 9 

I m 

]■"<********************************************************; 
l_ jcedure csmacd_tx_check_channel_queue ; 
begin 

ref ( tx__csmacd ) next_transmi tter ; 

! wake up anybody in line for channel; 

if( not (schannel_csmacd . channel_queue. empty )) then 
begin ^ ^ 


begin 


end ; 


end ; 


en d 5 


next_transmitter s- schannel.csmacd . channel_queue. first 
next_ transmit ter -out; 
activate nex t_transm.i tter; 


###*#*#**##*#*#*##########**##************#**##***********!« 


procedure reset_tx_c5macd ; 

Jl 

called by: tx_csmacd ; 

5 

calls: reset; 

clear,, buffer ; 

n 

•I 

returns: none; 

globals used: ; 

n :— 0; 

tx_delay := 0; 
total_delay := 0; 
change_state : — false; 
clears the buffer; 

•I 

m 

actions: ; 

resets the csmacd__tx variables; 

%****************************■*****************************’ 
procedure reset_tx_csmacd ; 
begin 

! reset entity variables; 
reset; 

! reset the tx__csmacd variables; 
n : ~ 0 ; 

tx_delay s- 0; 
total_delay :== 0; 
change_state := false; 

! clear the buffer; 
clear_buffer ; 

end ; 

procedure dma_transfer (no_bytes) ; 


! procedure dma„transf er 5 

i 5 

! This procedure executes a hold to simulate a dma transfer.; 
It used the number of bytes passed to it to determine the ; 

V actual lenght of the hold. | 

i 5 

! Globals: dma_xfer_rate 5 

3 

integer no__bytes; 
begin 

hold ( no_bytes * 8 /dma_xfer_rate) ; 


JtO«*3fCJ*«IC****J|C*J|C***5|C*5ttJt:**5|OK*****5*C5|e*>K***5»C**3|Ol<***5»e5|e*5|C>K5|C5»£*5»C5K5|C*3K5K5 


! boolean procedure receive; 

• *1 

! called by: csmacd_txs_idle., csmacd_rxs_idle ; 

• jS 

! calls: none; 

• |l 

! returns: ; 

! true if frame entered into buffer; 

! false otherwise; 

! globals used: ; 

! buf - current buffer; 

i buf f er_in terrupt — set when frame enters buffer; 

- * 

! actions: ; 

! takes a frame and puts it into the buffer; 

! sets the buffer state to full; 

! sets buf fer_in terrupt to true; 

! holds for dma_xfer time; 

! ********************************************************** 5 
boolean procedure receive( in_f rame ) ; 
ref (f rameunit ) in_frame; 
begin 

boolean return__code; 
return_code := false; 

! if the buffer isn't full;, put the frame in; 

if ( not ( buf. state = FULL )) then 

begin 

! put the frame in the buffer ; 
in_f rame . in to ( buf ) ; 

! set the buffer state; 
buf .state := FULL; 

! set the buffer interrupt; 
buf fer_in terrupt := true; 

! hold for transfer time; 
dma_transf er ( in_f rame . bytes ); 

return_code := true; 

end ; 

receive := return_code; 

end ; 
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process class rx__csmacd ; 

!» 

substructure of: class protocol;; 

•» 

calls: ; 

csmacd_rxs.„id le ; 
csmacd_rxs_,receiving ; 

5 

returns: none ; 

|S 

globals used: ; 

loops on the state and change status boolean 

actions: mimicks the receiver of the csmacd 5 
activates rx_ip when appropriate; 

jMc****#***********#^**#***##**#**#*#**********##*********? 

csmacd class rx__ csmacd ; 
begin 


! attributes; 

long real rx_delay; ! in usees; 


! state routines; 

! determine if a transition will occur; 

! return a boolean true if transition occurs; 

! files that contain the state subroutines and specific procedure 
INCLUDE csmacd_rxs.sim 
?;INCLUDE csmacd_rx „sim 


! main body; 
begin 

rx_delay := 10 . 0 ; 


! initialize attributes; 

! loop forever; 
while true do 
beg i n 

! do we check for a transition ; 
if (( not change_state ) and 

( not buffer__in terrupt )) 

beg in 

passivate; 

chang e_state := true; 


then 


else 

begin 

! reset the transition; 
change_state s= false; 

! identify the state; 
if (state ~ FREE ) then 
begin 

change_state s~ 

csmacd„rxs_idle ; 

end 

else if (state = RECEIVING ) then 
begin 

change_state : = 

csmacd_rxs_receiving ; 

! is the buffer full receiving; 
if ( change_state ) then 
begin 

! wake up the ip layer; 
activate srx_ip( id ) ; 

! reset the variables; 
reset_rx_csmacd ; 

end ; 

end 

else 
beg in 

outtextC ERROR IN IDENTIFYING C_RX_STATE” ) 

outint( state, 5) ; 

outimage; 

end ; 

end ; 


end ; 


end ; 


end ; 
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! procedure csmacd_rxs„idle; 

• 5 

! called bys process class rx^csmacd; 

• 5 

! calls! csimacd_rx_f rame; 

• 5 

! returns: true it transition occurs, false otherwise; 

• |l 

! globals used: buf. state ; 

• 5 

! actions: represents the idle state; 

I m 

! *****************************>W^ ; 

boolean procedure csmacd__rxs,_idle; 

begin 

boolean return_.code; 

( ! initialize return code; 

return__code t- false; 

! is there a possible transition; 

! attempt to send; 

if ( buf. state = FULL ) then 
begin 

return_code : = csmacd„rx_f rame; 

end ; 

csmacd_rxs_idle := return_.code ; 

end ; 

! ******************************************^ ; 


! procedure csmacd_rxs_receiving ; 

I m 
• ■! 

! called by: process class rx_csmacd; 

i n 

' J 

! calls: csmacd_rx_buf f er_f ul 1 ; 

! 11 returns: true if transition occurs, false otherwise; 

f 

globals used: none ; 

• 5 

! actions: represents receiving state; 

! checks to see if the buffer's full; 

I it 

! ^JK**********************************^******************** ; 

boolean procedure csmacd_rxs_receiving ; 



boolean return^code; 
return_code 5= false; 

! check to see if we have a transition 
return,_code ; = csmacd_rx_buf fer^full ; 

! hold for a receiving time; 
hold ( rx^delay) ; 

csmacd__rxs_ receiving s — return_code; 

end ; 
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! procedure? csm<scd_rx„f rame; 

! called by: csmacd__rxs_id le ; 

! calls: none; 

! returns: always true ; 

I * 

! globals used: none ; 

I « 

! actions: changes the state from idle to receiving ; 

! owns the transition for recieving message; 

boolean procedure csmacd_rx_f rame; 
begin 

boolean return_code; 

, return code true; 

1 

! reset state variables; 
state := RECEIVING; 


! set the return value; 
csmacd_rx_f rame := return_code; 

end ; 

! ********************************************************** ; 

! 3 

♦ 5 

! procedure csmacd_rx_buf f er_f all ; 

• !• 

! called by: csmacd_rxs_receiving ; 

I n 

• !■ 

! calls: none; 

• j 

! returns: none ; 

! true if frame was sent to rx_ip; 

! false otherwise; 

! ; 

! globals used: frame ( frame pointer ) ; 

• !• 

! actions: imitates the receiving state ; 

i owns the transition for recieving buffer full 

f 

v.. • 

lx********************************************************** 
boolean procedure csmacd„rx_buffer_full ; 
begin 

boolean return_code; 


! initialize variables; 




! get the next frame to send; 

! or loop on the last one; 
if ( frame -= none ) then 
begin 

frame : — get_f rame_f rom_buff er ; 

end ; 


! if we got the sending frame;, pass it up; 

if ( frame =/= none ) then 

begin 

if( srx__ip(id). state = FREE ) then 
beg in 

! set the frame pointer for the ip layer; 
re turn _ code :- srx_ip(id) .receive (frame) ; 

end 
e 1 se 
begin 

return_code : = false; 


end ; 


end 

else 

begin 

return_code := false; 


end ; 


! set the return value; 

csmacd_rx_buffer_full : = return_code; 


*5|e5|ej*c)|c3|e3|e3|t3K5|e*JKsle***5K5|e5»e5|«*5*t5Kilolc*JK5|t*i*tJ|c**i*«5|e****3*c5|c*s|eJlc5|cJKJleJ»c3K)*t3#c5le5*c5|c*5K5K3|e; 


! procedure reset_rx_csmacd ; 

• 9 

! called by: rx_csmacd ; 

• 9 

! calls: reset; 

! clear_buffer ; 

*• 5 

! returns: none; 

• 9 

! globals used: ; 

! change_state:= false; 

« clears the buffer; 

I m 

• 

! actions: ; 

! resets the rx_csmacd variables; 

I f» 

« *U**>mc*)Mc******************^ ; 

procedure reset_rx_csmacd ; 
begin 


! reset entity variables; 
reset; 

! reset the rx_csmacd variables; 
change_state := false; 

! clear the buffer; 

r-1 oar ■ 


end ; 

, jcedure dma_transfer (no_bytes) ; 


procedure dma__transf er 5 

This procedure executes a hold to simulate a dma trans"fer.|i 
It used the number of bytes passed to it to determine the ; 
actual lenght of the hold. 5 

Globalss dma_xfer,_rate 5 


integer no_bytes; 
begin 

hold ( no_ bytes * 8 /dma_xf er_rate) ; 

end ; 


! **%******************************************************* ; 

* f» 

* !* 

! boolean procedure receive; 

* !* 

! called bys csmacd_txs_idle, csmacd_rxs_idle ; 

I m 

• Jl 

! calls: none; 

r " 

returns: ; 

! true if frame entered into buffer; 

! false otherwise; 

• 5 

! globals used: ; 

! buf - current buffer; 

! buffer_in terrupt - set when frame enters buffer; 

I n 

• ? 

! actions: ; 

! takes a frame and puts it into the buffer; 

! sets the buffer state to full; 

! sets buf fer_in terrupt to true; 

! holds for dma__xfer time; 

1 n 

! ********************************************************** ; 
boolean procedure receive( in_f rame ) ; 
ref (f rameunit) in_frame; 
begin 

boolean return_code; 
return_code := false; 

! if the buffer isn't full, put the frame in; 

if ( not ( buf. state = FULL )) then 

begin 

! put the frame in the buffer ; 
in frame. into ( buf ) ; 

'vt, **** 

! set the buffer state; 
buf. state := FULL; 

! set the buffer interrupt; 
buf fer__in terrupt := true; 


! hold for transfer time; 
dma_transfer( in_frame . bytes ) 

return_code := true; 

end ; 

receive := return_code; 
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! process class channel_csrnacd ; 

! substructure of: class protocol; 

! calls: none; 

) « 

! returns: none ; 

• globals used: initializes channel variables ; 

! csmacd_channel„state:= 0 ( FREE ); 

! channel„queue :- new head; 

I 19 

• !■ 

! actions: mimicks the channel ; 

1 m 

f 5K>le5K5K*5tcJle3»t5k5»e*5|c5|ei»o|c*Jt:5K^*5|t5|tJK>K*>*:5K*5K*5K5K5K**?K5K*5K**>t£*5K*5l£3|e**3lc*)|C3K5K5K*5K>K 

class channel__csmacd ; 
gin 


! attributes; 

integer csmacd__channel_state; 
ref (head) channel _queue ; 


! main body;* 

! initialize attributes; 
begin 

csmacd__channel_state:= 0; 
channel_queue :- new head; 

end ; 


end ; 



Ik- 


10.0 ! data_rate;; 

1.0 ! in terrupt_.ti.me ;; 

40.0 ! dma_x"fer_rate 5 

i >000040 ! aver_.arrival_t.ime 

5.0 ! prop__delay; 

1 500 ! ma x _f rame„s i z e ; 

5000 ! aver_msg_size; 


b 

10.0 ! data_rate; 

0.5 ! in terrupt_time ; 

80.0 ! dma„xfer_rate; 

>0000*10 ! aver...arrival„t.i.fne:; 

5.0 ! prop„clelay; 

1500 ! max_fra(fle_size; 

5000 ! aver_mscj__siz!3; 




s tat ion # throughput 

1 6.71 68 1 89 1 54—00 1 

2 5.1795578574-001 

: 3 7.3700513654-001 

4 7 . 9347 5630 1 4-00 1 

5 6 . 2742939874-00 1 

6 7 . 0854925894—001 

7 1 .8324100924—001 

8 5. 89760771 14-001 

9 7 . 8294486688:— 00 1 

10 1 .0424 572 524-001 


aver delay / frame 

success 

1.8610000004+003 

14 

2.41 333340 54+003 

14 

1.6960533084+003 

10 

1 „ 57 5347 6894+003 

14 

1.9922560254+003 

12 

1 . 7641681004+003 

10 

6 . 8216170894+003 

12 

2.1195034694+003 

16 

1 . 5965364274+003 

16 

1 . 1990899374+004 

14 


network_throughput - 1 .948454521'?;- 001 

aver delay _per_/frame — 3.3830714884+00o 

simulation time 3 . 3873000004+006 


0 

0 

0 

0 

o 

0 

0 

0 

0 

0 



\y^ , 


tion # 

t hroug hput 

aver delay / frame 

success 

reject 

1 

5- 5374866008-001 

2 .257341 8068+003 

20 

0 

n 

A.. 

7.1575062268--001 

1 .74641 83208+003 

28 

0 

O 

8.6327268158-001 

1. 447978 1738+003 

16 

0 

4 

2.4858225738-001 

5 . 028 5 1 6 57 1 8*003 

20 

0 

5 

7 .0538335278-001 

1 . 7720360518+003 

10 

0 

6 

6 . 98860 585 58-00 1 

1 .7886256948+003 

If; 

0 

7 

7 . 57459408 5.% -00 1 

1.6502534478+003 

26 

0 

8 

7.1501074648-001 

1 .74822547384-003 

19 

0 

9 

8 . 1807711258—001 

1.5279733188+003 

17 

0 

10 

7 . 873636 56 58-00 1 

1 . 5875764528+003 

16 

0 


networ k_ through pu t — 1 . 86095<2051 8r 001 

aver delay per "frame — 2.0554995o0&+00iS 

simulation” time 5 .. 0243100008+006 




station throughput 

1 6 . 92149489 5&--001 

2 1.4205486428r-001 

3 I . 2776807 428r-00 1 

4 1 . 881 1 536238r-001 

5 6 . 904740334&—001 

6 7 . 7613669738r-001 

7 3-1 43548 1 538r-00 1 

B 8.0594557568r-001 

9 3.51 57386798r-00 1 

10 8 . 723454906&-00 1 

n e t wo r k_ t h roug h pu t = 1.864 

aver delay_per„f rarne = 
simulation time 4.31814000084-006 


aver delay / •frame 

success 

reject 

1 . 80596824784-003 

19 

0 

8 . 79941709084-003 

10 

0 

9 . 7833 5 1 6 5084-003 

14 

0 

6 . 64485869184-003 

18 

0 

1.8103 5048384-003 

13 

0 

1.61054103584-003 

19 

0 

1 . 534015602*4-003 

16 

0 

1 . 5 509732 1 4*4-003 

14 

0 

3 . 55544058984-003 

21 

0 

1.43291850984-003 

12 

0 


^285808:-001 
3 .85278351 184-003 


